Урок 12.2 Задача 2

Primary tabs

Submitted by mrn123 on Fri, 07/08/2022 - 17:13

Forums:

Урок 12.2 Задача 2

Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

1 5 9 13 17 21 25 29 33 37 41 45

program u12z2;
var i, a, b, c: integer;
begin
  b:= -3;
  for i:= 1 to 45 do
   begin
     c:=b + 4;
     b:= c ;
      if (c <= 45) then
     write(c,' ');
   end;

  readln();
end.
  • Log in to post comments
  • 1247 reads
vedro-compota's picture

vedro-compota

Sat, 07/09/2022 - 16:20 

for i:= 1 to 45 do
  1. использование for тут избыточно -- переписать на while
  2. Оформление: Использовать другую кисть для подсветки синтаксиса -- как тут http://fkn.ktu10.com/?q=node/8741 но не PHP, а delphi

_____________
матфак вгу и остальная классика =)

mrn123

Sat, 07/09/2022 - 18:11 

program u12z2;
var i, a: integer;
begin
  i:=-3;
  while (i <= 41)do
   begin
     i:=i + 4;
     write(i,' ');
   end;

  readln();
end.
vedro-compota's picture

vedro-compota

Sat, 07/09/2022 - 18:18

засчитано

_____________
матфак вгу и остальная классика =)