Program ryazantsev;
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4
1 мин 40 сек это 100 секунд
100*1939=193900 байт
350*2 байта=700 байт одна страница
193900/700=277
Все однозначные числа от 1 до 9 - это числа Армстронга.
Потому что однозначное число в 1 степени равно самому этому числу.
Сумма этих чисел 1+2+3+4+5+6+7+8+9=45.
Следующее число Армстронга - как раз 153 > 20.
Ответ 45
Я доказала всего лишь один из законов, посмотри тот ли тебе нужен