Вывести таблицу квадратов заданных чисел(используя цикл с параметром)

@Sailoks · Регистрация: 08.04.2017

Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел (используя цикл с параметром)

@Puporev · 18.04.2017, 07:20

Pascal

1 2	for i:=1 to 5 do writeln(2i-1,'^2=',sqr(2i-1));

@Cold · 18.04.2017, 08:22

Pascal

Var i,k:integer;
Begin
    i:=1;k:=0;
    Repeat
     inc(k);
     writeln(i,'^2 = ',i*i);
     inc(i,2);
    Until k=5;
    readln;
End.

или так

Pascal

Const n=5;
Var i:integer;
Begin
    i:=1;
    While i<=n*2 do
    Begin
      writeln(i,' ',i*i);
      inc(i,2);
    End;
End.

@Puporev · 18.04.2017, 08:24

Cold, Читать учись.

Сообщение от Sailoks

используя цикл с параметром

Другие ему уже писали в других темах.

@Sailoks 0 / 0 / 0 Регистрация: 08.04.2017 Сообщений: 19
		1
	Вывести таблицу квадратов заданных чисел(используя цикл с параметром) 18.04.2017, 07:14. Показов 4616. Ответов 3 Метки нет (Все метки) Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел (используя цикл с параметром) 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	18.04.2017, 08:24	4
	Cold, Читать учись. Сообщение от Sailoks используя цикл с параметром Другие ему уже писали в других темах. 1

Решение