Регистрация
зима19
18.02.2020 19:05
Информатика
Есть ответ 👍

Pascal.abc найти все трёхзначные простые числа.

281
484
Посмотреть ответы 2

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

soz2019oy63um
soz2019oy63um
4,4(7 оценок)
Var i, j, t: integer; begin for i: =100 to 999 do     begin     t: =0;     for j: =2 to i div 2 do       begin       if i mod j = 0 then       inc(t);       if t > 0 then       break;       end;     if t = 0 then writeln(i);     end; end.
Grotesk1077
Grotesk1077
4,8(26 оценок)
Т. к. точные данные не даны, а только ширина b, а длина а. площадь это s=a*b.значит площадь равна a*b

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