Составьте программу нахождения количества всех целых положительных чисел от n до 25

Question

Составьте программу нахождения количества всех целых положительных чисел от n до 25

Answer 1

Какой ты класссссссссс

Comments

9 классс

Answer 2

Program prog;
Uses crt;

var n:real;

begin
clrscr;

write('n = ');
readln(n);

if (n<=25)then<br>  if (n>0) then writeln(Trunc(26-n))
  else writeln(25)
else writeln('Error');
end.