Вопрос школьника по предмету Информатика
На языке программирования Паскаль напишите программу, которая:
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.
Похожие вопросы от пользователей
Варіант 4
1. Запишіть координати будь-яких двох точок, ординати яких дорівнюють 2.
2 Заришіть абсцису точки C(-6; 3).
3. Визначте координати точок А, В і С за
майонком
4 АВСD – прямокутник. А1 – 2; 0); В – 2; 2);
2; 2). Знайти координати точки D.
5. Побудуйте на координатній площині пряму,
яка проходить через точку МС-23), паралельну
до осі ординат.
6. Побудуйте прямокутник, три вершини якого
мають координати: A(-2;3), B(4; 3) і С(4;-2).
Знайдіть його площу і периметр.
разность неизвестного числа и числа 80
сумма чисел 25 и 30
сумма 17 и неизвестного числа
произведение неизв числа и 4
произведение чисел 4 и 3
из числа 60 вычесть произведение 5 и 4
к частному чисел 15 и 3 прибавить 73
сумму неизв числа и 30 разделить на 5
6 класс