Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

1)Дана последовательность целых чисел ,заканчиваются нулем.Написал. прогр. Подсчитать сумму положит чисел.
2) Дана посл. Заканчиваются на 0.написал. Программу выводящую только четные числа
3)Дано N чисел .написал программу подсчитывающую их сумму. Даю 50балов

Ответ оставил Гость

Program n1;
var a,k,sum,x:integer;
begin
write(Введите число X: );
readln(x);
sum:=0; k:=0;
writeln(Введите непустую последовательность целых чисел, которая оканчивается нулем:);
read(a);
while a <> 0 do
begin
if a>x then sum:=sum+a;
if a mod 2 = 0 then k:=k+1;
read(a);
end;
writeln(Сумма всех чисел последовательности, больших числа X: ,sum);
writeln(Количество всех четных чисел последовательности: ,k);
end.
По-моему так...