1) Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). 2) Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);

1) program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

read (x);

if (x mod 3 = 0) and (x mod 10 = 4) then y:=y + 1;

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

read (x);

if (x mod 3 = 0) and (x mod 10 = 4) then y:=y + 1; / / проверяем, если число последовательности кратное трем и оканчивающихся на четыре, то считаем его

end;

write (' Количество чисел последовательности кратных трем и оканчивающихся на четыре = ', y); / / выводим ответ

end.

2. program zz1;

var a, b, r, i : integer; / / задаем переменные целого типа

begin

write (' введите a '); / / вводим с клавиатуры число

read (a);

for i:=a to 200 do

begin

r:=r + i; / / вычисляем сумму чисел

b:=b + 1;

end;

write (' среднее арифметическое = ', r/b); / /выводим ответ

end.