Var
a,b:integer;
begin
a:=4;
b:=2;
Writeln('2+2=4');
Writeln('2+2=',a);
Writeln('2+2','=',a);
Writeln('2','+','2=',a);
writeln('2','+','2','=',a);
writeln('2','+','2','=',a);
writeln(b,'+',b,'=',a);
end.
//Pascal ABC.NET v3.1 сборка 1172
var
n, m: integer;
begin
read(n, m);
repeat
writeln('Текущее значение N:', n, ' ,до m:', m - n);
inc(n);
until n = m;
writeln('Завершено, n=m');
end.
Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m
Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800
Микрофон он водит информацию ,а все остальное выводит.