Задача 17 урок 13.1

Primary tabs

Submitted by Alexey051 on Sat, 03/13/2021 - 18:11

Forums:

Задача 17 урок 13.1

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа316182022четыре числа3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810два числа31416два числа3....3....и т.д.

program project1;
var a,b,c,i: integer;
begin
  writeln('Введите число ');
  readln(a);
  writeln('Еще раз введите число ');
  readln(b);
  if (a > 0) then
    while (c < a) do
       begin
       for i:=1 to b do
       c := c + 2;
       write(' ',c);
       write(' ', 3)
     end
end.
  • Log in to post comments
  • 3394 reads
vedro-compota's picture

vedro-compota

Sat, 03/13/2021 - 22:47

замечания по оформлению:

  1. нет цитаты условия
  2. нет ссылки на урок
  3. код не подсвечен - см. инструкцию по подсветке кода

Пример правильно оформленной задачи: http://fkn.ktu10.com/?q=node/11402

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

Alexey051

Sat, 03/13/2021 - 22:55 

program project1;
var a,b,c,i: integer;
begin
writeln('Введите число ');
readln(a);
writeln('Еще раз введите число ');
readln(b);
if (a > 0) then
while (c begin
for i:=1 to b do
c := c + 2;
write(' ',c);
write(' ', 3)
end
end.
vedro-compota's picture

vedro-compota

Mon, 03/15/2021 - 11:28 

while (c < a) do
       begin
       for i:=1 to b do
       c := c + 2;
       write(' ',c);
       write(' ', 3)
     end

- тело цикла while неправильно отформатировано, читайте о правилах форматирования кода.

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