1. найти сумму и количество отрицательных чисел, значения которых не превышают -3 из 8 введенных. написть программу в паскале
пухля13
3
21.05.2019 06:50
0
Другие вопросы по теме Информатика
25durak
29.03.2021 09:59
серик26
29.03.2021 10:00
zaharovivan150
29.03.2021 10:05
VikaFragran
17.04.2020 15:17
Masika08
17.04.2020 14:46
Love25252525
17.04.2020 14:46
alinaklepcova
11.06.2019 22:10
Еленка871
28.05.2019 18:30
maryavko1
28.05.2019 18:40
Популярные вопросы
- Почему в басни крылова лисица и виноград автор написал виноград с...
3 - Cao+zn(oh)2= cao+hno2= cao+pbo= mg+hgso4= cao+hno2=...
2 - Вкакой природной зоне растут полынь, ковыль, мох?...
2 - Затраты времени на дела(уход за комнатными растениями, животными,...
1 - Кто это по описанию? : этот таёжный зверёк имеет между передними...
3 - Какое из слов является синонимом к слову бескорыстие ? а)таланливость...
2 - Труд в отличии от общения 1)является потребностью человека 2)может...
1 - Почему рассказ муму всегда считали произведением против крепостного...
2 - 2x²-20x+50 ( это надо разложить на множители) представьте в виде...
2 - Рачок бокоплав, коловратка, медуза крестовичок, морская звезда-кто...
1
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.