===== PascalABC.NET =====
begin
SeqGen(9, i -> i * i, 1).Print
end.
Вот, если надо явный цикл
for var i := 1 to 9 do
Print(i * i)
Алгоритмический язык:
алг sqr1
цел x
нач
нц
для x от 1 до 9
вывод(x*x,' ')
кц
кон
Pascal:
program sqr2;
var x:integer;
for x:=1 to 9 do
writeln(sqr(x));
Java:
class sqr3 {
public static void main (String [ ] args) {
for(int x=1;x<=9;x++)
{System.out.println(x*x);}
}
===== PascalABC.NET =====
begin
SeqGen(9, i -> i * i, 1).Print
end.
Вот, если надо явный цикл
begin
for var i := 1 to 9 do
Print(i * i)
end.
Алгоритмический язык:
алг sqr1
цел x
нач
нц
для x от 1 до 9
вывод(x*x,' ')
кц
кон
Pascal:
program sqr2;
var x:integer;
begin
for x:=1 to 9 do
writeln(sqr(x));
end.
Java:
class sqr3 {
public static void main (String [ ] args) {
for(int x=1;x<=9;x++)
{System.out.println(x*x);}
}
}