Предмет: Информатика,
автор: Angarsk38rus
1. Найти сумму и количество отрицательных чисел, значения которых не превышают -3 из 8 введенных.
написть программу в паскале
помогите пожалуййста
Ответы
Автор ответа:
0
Program ZADACHA;
var a,b,c,d,k:integer;
begin
c:=0;
k:=0;
d:=0;
repeat
begin
readln(a);
b:=a;
c:=c+1;
if (a<-3)
then
begin
d:=b+a;
k:=k+1;
end;
end;
until c=8;
writeln(d);//ETO SUMMA
writeln(k);//Eto KOLICHESTVO
readln;
end.
Интересные вопросы
Предмет: История,
автор: snizanastomarivska
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Қазақ тiлi,
автор: alimkaa22
Предмет: Математика,
автор: игорьинаруто
Предмет: Алгебра,
автор: leha595