Noky
4 год назад
составьте программу нахождения количества всех целых положительных чисел от n до 25
ОТВЕТЫ
Рюрик
Oct 24, 2020
Program n1;
var i,n,k: integer;
begin
k:=0;
readln(n);
for i:=n to 25 do if i>0 then k:=k+1;
writeln(k);
end.
var i,n,k: integer;
begin
k:=0;
readln(n);
for i:=n to 25 do if i>0 then k:=k+1;
writeln(k);
end.
630
