Цикл с предусловием. Вывести таблицу квадратов первых пяти целых положительных нечетных чисел

@Кван Тэ Су · Регистрация: 19.02.2012

Author24 — интернет-сервис помощи студентам

Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел (ИСПОЛЬЗУЯ ЦИКЛ С ПРЕДУСЛОВИЕМ)

@ermolay · 22.05.2012, 15:54

Pascal

var
  i,n: integer;
begin
  writeln('Таблица первы 5 нечетных квадратов');
  writeln('          ---------------------');
  i:=1; n:=0;
  write('n     ');
  while n<5 do
  begin
    write(i:5);
    inc(i,2); 
    inc(n);
  end;
  writeln; writeln;
  
  write('n^2   ');
  i:=1; n:=0;
  while n<5 do
  begin
    write(sqr(i):5);
    inc(i,2);
    inc(n);
  end;
  readln;
end.

@ermolay · 30.05.2012, 16:31

если нужно сделать задачу с применением цикла for, то подойдет такое решение:

Pascal

var
  i,n,k: integer;
begin
  n:=5; k:=1;
  for i:=1 to n do
  begin
    while k mod 2=0 do
      inc(k);
    writeln(i,'-е положительное нечетное: ',k,'. Его квадрат: ',sqr(k));
    inc(k);
  end;
  readln;
end.

@Кван Тэ Су 0 / 0 / 2 Регистрация: 19.02.2012 Сообщений: 41
		1
	Цикл с предусловием. Вывести таблицу квадратов первых пяти целых положительных нечетных чисел 22.05.2012, 15:25. Показов 4438. Ответов 2 Метки нет (Все метки) Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел (ИСПОЛЬЗУЯ ЦИКЛ С ПРЕДУСЛОВИЕМ) 0

	30.05.2012, 16:31

Опции темы

Цикл с предусловием. Вывести таблицу квадратов первых пяти целых положительных нечетных чисел

Решение