Регистрация
aisasiada
06.10.2022 19:35
Информатика
Есть ответ 👍

Найдите количество четных чисел ,диапазоне от 20 до 100.

176
241
Посмотреть ответы 2

Ответы на вопрос:

Umniyera
Umniyera
4,7(5 оценок)
1. школьный вариант в стиле турбопаскаль 1983г. var   i,k: integer; begin   k: =0; i: =20; { четное }   while i< =100 do begin       k: =k+1; i: =i+2       end;   writeln('k=',k) end. результат k=41 2. современный паскаль // pascalabc.net 3.2, сборка 1431 от 28.04.2017 // внимание! если программа не работает, обновите версию! begin   writeln('k=',range(20,100,2).count) end.
strimersakarinа
strimersakarinа
4,8(8 оценок)
Pascal 2)program crazyfrog; uses crt; var a: array [1..15] of integer; i,min: integer; begin for i: =1 to 15 do begin a[i]: =-30+random(40); writeln('случайные числа: ',a[i]); end; a[1]: =min; for i: =2 to 15 do begin if(a[i]> 0) then begin  if(a[i]< min) then min: =a[i] ; end; end; writeln('min= ',min); end. 3)program warcraft; uses crt; var a: array [1..10] of integer; i: integer; begin s: =0; writeln('случайные числа'); for i: =1 to 10 do begin a[i]: =9+random(90); write(' ',a[i]); end; for i: =1 to 10 do begin if(a[i] mod 2 < > 0) then s: =s+a[i]; end; writeln('сумма нечет чисел= ',s); end.

Популярно: Информатика