Задача 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.
Дано дробное число. Посчитать его квадрат, куб и выделить целую часть.
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
begin
writeln('Введите кол-во правильных ответов, данных участником ',i);
readln(a);
if (a > max) then max:=a;
if a=0 then fl:=1;
end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.
Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал