Регистрация
zhezhuzina2006
01.08.2020 11:42
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количестваположительных и отрицательных чисел последовательности. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел.

270
449
Посмотреть ответы 2

Ответы на вопрос:

chapaev1981
chapaev1981
4,5(85 оценок)
Program n1; var sum,kp,ko,a: integer; begin readln(a); sum: =0; ko: =0; kp: =0; while a< > 0 do begin sum: =sum+a; if a> 0 then kp: =kp+1 else ko: =ko+1; readln(a); end; writeln(sum); writeln(kp-ko); end.
НикаБахметьева
НикаБахметьева
4,6(57 оценок)

Код программы:

var y, x:real;

begin

 writeln('Введите x');

 readln(x);

 if x < 0 then

   x := x * x

 else

   x := sqrt(x);

 writeln('x = ', x);

end.

Популярно: Информатика