Вопрос по информатике:
1. Даны целые числа b1, b2, ..., b10. Выяснить:
а) верно ли, что сумма тех из них, которые больше 20, превышает 100;
б) верно ли, что сумма тех из них, которые меньше 50, есть четное число.
- 21.03.2018 22:17
- Информатика
- remove_red_eye 12235
- thumb_up 57
Ответы и объяснения 1
uses crt;
var b:array [1..10] of integer; i,s1,s2:integer;
begin
clrscr;
for i:=1 to 10 do
begin
Randomize;
b[i]:=random(100);
end;
s1:=0; s2:=0;
if b[i]>20 then s1:=s1+b[i]; if s1>100 then writeln ('a)verno')else writeln ('a)ne verno');
if b[i]<50 then s2:=s2+b[i]; if s2 mod 2=0 then writeln ('á)verno')else writeln ('b)ne verno');
end.
- 23.03.2018 21:55
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.