1. с клавиатуры вводятся числа, определить сумму и количество, пока не введено 99 2. с клавиатуры вводятся числа, пока не введено 7, найти сумму только отрицательных чисел. составить программу в паскале

ArtemDeineka ArtemDeineka    3   22.07.2019 01:30    3

Ответы
сада2 сада2  19.08.2020 15:22
Готово

20 символов тут..
ПОКАЗАТЬ ОТВЕТЫ
katau852Katau164 katau852Katau164  19.08.2020 15:22
1.
var
a,s,t:longint;
begin
s:=0;
t:=0;
readln(a);
while(a<>99) do
begin
s:=s+a;
inc(t);
read(a);
end;
writeln(s,' ',t);
end.
2.
var
a,s:longint;
begin
s:=0;
readln(a);
while(a<>7) do
begin
if(a<0) then s:=s+a;
read(a);
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика