Вопрос школьника по предмету Информатика
На языке программирования Паскаль напишите программу, которая:
1) В последовательности чисел находит количество чисел, кратных 3.
2) В последовательности чисел находит максимальное четное число, оканчивающееся на 4.
Ответ учителя по предмету Информатика
1)
program kr3sum;
var i,s.h:integer;
begin
read(k) //кол чисел
for i:=1 to k do begin
read(h) //число для действий
if h mod 3 = 0 then begin s:=s+1;
end;
writeln(s);
end.
2)
program jeje;
var k,i,m,s,h:integer;
begin m:=0;
read(k);//кол-во чисел
for i:=1 to k do begin
readln(h);
if h mod 10 = 4 then begin s:=h;
if s > m then m:=s
end;
end;
write(m);
end.
Похожие вопросы от пользователей
1) (Не)льзя (не)обратить внимания на повышение качества работы дорожно-патрульной службы. 2) В партии товара (не)доставало несколько упаковок. 3) В Швейцарии (не)обходимо знать три языка — итальянский, немецкий, французский. 4) Ответ студента был (не)вполне удовлетворительным. 5) Он (не)заметно, ни с кем (не)простясь, ушел. 6) Уровень жизни в развивающихся странах (не)соответствует стандартам европейских стран. 7) (Не)занимательный случай, (не)анекдот, (не)эпизод, но целая жизненная судьба становятся у Чехова основой (не)большого по размерам рассказа. 8) (Не)обязательно, чтобы ответ был дан (не)медленно. 9) (Не)мало месяцев провел профессор над составлением учебника.
Саванне
Тайге
Тундры
Пустыни
Кустарниках
Степей
Очень нужно помогите пожалуйста
Заранее спасибо!!!