Задача 1.
Ввести 4 числа и сравнить среднее арифметическое первых двух чисел со средним арифметическим следующих двух чисел.
Пример работы программы:
» 1 2 4 5
« 2 среднее арифметическое больше
пояснение:
(1+2)/2=1.5
(4+5)/2=4.5
1.5 < 4.5 - следственно делаем вывод

Задача 2.
У вас есть кот. Кот "потребляет" N грамм кошачьего корма в сутки.
- Посчитать необходимое количество корма для кота на месяц, если иметь в виду, что в месяце 30 дней. Значение вывести в граммах, после перевести в килограммы.
- Посчитать затраты на "прокормку" кота в месяц, исходя из того, что стоимость 1 кг кошачьего корма (который любит кот) составляет Price рублей.
Пояснение: переменные N и Price вводятся с клавиатуры.

Задача 3.
Программа запрашивает ваш пол (м и ж обозначить цифрами 1 и 2 соответственно). Если пользователь выбирает первый вариант, то программа запрашивает любимое женское имя, если второй вариант - наоборот.
Пояснение: за пол отвечает целочисленная переменная (тип integer), за имя - переменная строкового типа (тип string). Например, var gender:integer; var name:string

Задача 4.
Дано дробное число. Посчитать его квадрат, куб и выделить целую часть.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

360Polina360

26.08.2022 06:20

Упростите логические выражения А.F=A&(B̅∨C) В.F=(X→Y)∨(Y→X)...

Sam223225

25.01.2021 23:16

Врассказе а.п. чехова студент главный герой иван великопольский пришёл к мысли связано с настоящим непрерывною цепью событий, вытекавших одно из другого. какое количество информации...

akniet8

02.10.2020 17:18

Нарисуйте пилу из 40 линий разного цвета (pascalabc)...

неумняшка3685689

19.11.2021 20:28

Вквадратной матрице, заполненной случайно, найти сумму элементов главной диагонали. pascal...

1Ростиславка

27.07.2022 04:23

Считая, что каждый символ кодируется одним байтом, оцените информационный объём следующего предложения: на заборе сидел кот. как решить?...

seilkhan2006

10.11.2022 05:58

Расскажите, как вы можете гарантировать, что переписываетесь именно с человеком (или именно с тем человеком, с которым думаете)...

ivanova1987lena

10.11.2022 05:58

Определите значение c после выполнения следующего алгоритма: a: =10 ; b: =20 a: = -b*b/a если a знак больше b то c: =b*3+a иначе с: =2*a-b все...

nazarko200

26.05.2021 09:39

Решите задачу по информатике ...

valeria2106

20.12.2020 19:20

Мәліметтер қоры мен жұмыс жасағанда сұраныстардың колданылуы мен каншалыкты манызды...

cherkashina711

21.11.2022 18:36

Пусть задан некоторый текст. Вычислить, сколько раз повторяется наперед заданный символ a.Решите используя string ...

Ответ:

MarKizaCat666

09.02.2021 03:01

Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;

    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;

    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;

    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;

    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;

    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;

    writeln(s);
end.

0,0(0 оценок)

Ответ:

nightmarelucy

27.06.2020 02:46

Как я понял, вам необходимо было исправить ошибки в коде. Если это так, то
Program ddd;
var tg, f:real;
x:integer;
begin
readln (x);
tg := sin(x)/cos(x);
if x<=-3.14 then f:=ln(cos(5*x)-2*x)+1;
if x>-3.14 then f:=0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x));
writeln (f);
end.

Обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). Функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f:=ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). Приравнивать переменные одих типов к значению других -- ошибка (f:integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. Следовательно, f не может присвоить возвращаемое значение функции ln).

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку