Батырхан любит числа которые без остатка делятся на 3. к сожалению для больших чиселон не может проверить должен ли он любитьего или нет. ему написав программу, которая ему.
Var s:string; c1,cn:char; n:integer; begin Write('Введите натуральное число: '); Read(n); Str(n,s); c1:=s[1]; cn:=s[Length(s)]; if c1>cn then Writeln('Первая цифра больше последней') else if c1<cn then Writeln('Первая цифра меньше последней') else Writeln('Первая и последняя цифры одинаковы') end.
Тестовые решения Введите натуральное число: 362336 Первая цифра меньше последней
Введите натуральное число: 7341423 Первая цифра больше последней
Введите натуральное число: 4624 Первая и последняя цифры одинаковы
В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.
var n,s,t,i:integer; begin Write('Укажите количество данных: '); Read(n); Writeln('Теперь вводите данные'); s:=0; for i:=1 to n do begin Read(t); s:=s+t end; Writeln('Средняя температура за месяц составила ',s/n:0:1) end.
Пример решения
Укажите количество данных: 11 Теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 Средняя температура за месяц составила 27.4
var a:integer;
begin
read(a);
if (a mod 3)=0 then writeln('Lubit')
else writeln('Ne lubit');
end.