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.
Нужно одновременно нажать клавиши Ctrl+Alt+Del
//Pascal ABC.NET 3.1 сборка 1256
Var
b,a,m,ar:real;
i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
begin
inc(i);
a:=a*(b/100+1);
end;
writeln(i);
end.
Пример ввода:
33
2
100
Пример вывода:
3
Классификации на математике: числа бывают: натуральными(1,2,3); целыми(2, -5); дробными(6,73). На русском: предложения бывают: простыми, сложными: сложноподчинёнными, сложносочинёнными, сложными с разными видами связи, сложные бессоюзные.
Ответ 4
функция div определяет целочисленное деление
22 делим на 5 =4 в остатке 2