profile
Опубликовано 4 года назад по предмету Информатика от Неизвестный


1. Даны целые числа b1, b2, ..., b10. Выяснить:
а) верно ли, что сумма тех из них, которые больше 20, превышает 100;
б) верно ли, что сумма тех из них, которые меньше 50, есть четное число.

  1. Ответ
    Ответ дан Sky09

    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.

Другие вопросы
Lenusik
Математика - 1 неделя назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.