1)Дана последовательность целых чисел ,заканчиваются нулем.Написал. прогр. Подсчи?
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.
По-моему так...
Не нашли ответ?
Похожие вопросы