Задача на goto, if и mod. Пусть программа выдает числа от 1 до 50 пятью столбиками столбиками (см вложение).
Для перевода вывода данных используем сл. логику - если число mod 5=0 то печатаем пустой writeln;(произойдет перевод строки) и goto 1

183

473

Посмотреть ответы 1

Ответы на вопрос:

Belayalbina2512

Информатика

4,5(66 оценок)

Var st: string [80]; i, dl, f: integer; begin readln (st); f : = 1; i : = 1; dl : = length(st); while (i < = dl) and (f = 1) do begin if (st[i] = st[0-i+1+dl]) then f : = 1 else f : = 0; inc(i); end; if (f = 0) then writeln('да') else writeln('нет'); end.немного изменил вариант из учебника под условие=)