Ответы
Ответ дал:
0
Ответ:
===== PascalABC.NET =====
var
n, a: integer;
begin
n := 1;
a := 1;
while n<11 do
begin
a := a * n;
writeln('a ',n,' = ',a);
inc(n);
end;
end.
Объяснение:
Приложения:
BobbyFresnel:
Выполнялось может и в PascalABC.NET, а по языку - Free Pascal
А разница?
PascalABC.NET - язык нового поколения, в нем много нового, взятого от других, современных языков. Но чтобы в школах учителей не парить, оставлена возможность выполнять программы в синтаксисе Turbo Pascal, Free Pascal и Delphi.
Это как то влияет на ответ?
Нет конечно, я просто отметил, что это не PascalABC.NET. Можно во Free Pascal запустить и программа пройдет. А в PascalABC.NET пишут примерно так (если придерживаться требований задачи, потому что удобнее иначе написать, но условие есть условие):
begin
var (n, a) := (1, 1);
while n < 11 do
begin
a *= n;
Println('a', n, ' =', a);
n += 1
end
end.
var (n, a) := (1, 1);
while n < 11 do
begin
a *= n;
Println('a', n, ' =', a);
n += 1
end
end.
И вот такой код пройдет только в PascalABC.NET
Поэтому я и пишу в своих ответах название компилятора, чтобы не пытались пропускать в других системах.
Я не проверяю работу в других компиляторах, поэтому написал тот, которым я пользуюсь. Что бы не было такого, а у меня не работает там-то...
Вот теперь понятно, Вы пишете не версию языка программирования, а название компилятора, с которым работали. Т.е "Программа запускалась в PascalABC.NET"
Вас заинтересует
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад