Вопрос Какую задачу решает следующая программа?

[54989487945]

Program Test;
Type Natur=1..MaxInt;
Var N:Natur;
X:Real;
Begin Readln (N);
X:=0;
While N>0 Do
Begin
X:=X+1.0;
N:=N-1
End;
Writeln (X)
End.

 

[vinogradov39]

Копирует введенное значение в другую переменную, приводит его к типу Real и выводит на печать?

 

[Tragic]

Что ввели, то и вывели. Только тип поменялся. В таком виде программа не решает ничего

 

[ЯПАВЕЛ]

Program Test; //программа называется Test Type Natur=1..MaxInt; // создаем новый числовой тип данных. Можно хранить положительные числа Var N:Natur; //задаем новую переменную N созданного нами типа X:Real; //задаем новую переменную вещественного (числа с точкой) типа Begin // начинаем основную часть программы Readln (N); //запрашиваем пользователя ввести число. Введенное число записываем в переменную N X:=0; // x=0 While N>0 Do // описываем новый цикл. Цикл идет пока переменная N>0 Begin // начинаем тело цикла. X:=X+1.0; // к значению переменной X прибавляем 1 N:=N-1 // от значения N отнимаем 1 End; // конец тела цикла Writeln (X) // выводим значение X End. // Конец программы

 

[Jarkom]

введенное значение (число ) последовательно сокращается на единицу (N:=N-1) пока не достигнет нуля (While N>0 Do) параллельно другая переменная увеличивается на единицу. По результатам расчетов выводится результат. Кароче бредовая программа...