Вводится два числа. определить кратна ли 5 их сумма
EfaliyaRom
3
22.06.2019 08:10
1
Другие вопросы по теме Информатика
Cfhbcbudh
08.08.2019 12:40
olya363
08.08.2019 12:40
gmurzakaevap06yh1
08.08.2019 12:40
Uniquehatter
08.08.2019 12:40
sooooooos1
08.08.2019 12:40
Abdresh
08.08.2019 12:30
denis20043601
08.08.2019 12:30
MuxaBirko
08.08.2019 12:30
otepovaaazan
08.08.2019 12:30
Популярные вопросы
- На яку висоту підніметься етиловий ефір в капілярній трубці з діаметром...
2 - скоре можете сказать ответ...
3 - Конденсатор колебательного контура имеет электроёмкость 3 мкФ. Амплитудное...
1 - Вычисли наиболее удобным ...
3 - 1. Охарактеризуйте мифологию индоираинцев. Как они представ- ляли себе...
3 - 1.Жалғауцдың неше түрі бар? А) 2 В) 3 С) 5 Д)1 Е)4 2.Үндестік заңының...
3 - Решите уравнение: 4x² - 2,4x = 0...
1 - Найдите корни уравнения: |5x+ 2.5| = 7Х1 = 0.9 Х2 = -1.9Х1 = 0,9 Х2...
2 - все на фотографии вопросы история февральская революция...
1 - Төменде көрсетілген суреттер арасын бірқалыпсыз түзу сызықты қозғалысты...
1
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.