Регистрация
slipnot174
26.01.2021 14:15
Информатика
Есть ответ 👍

Решить 4 в pascal.написать программу с "массив" и "цикл"​.заранее !

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

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

MASTER2008
MASTER2008
4,6(67 оценок)
Var   x, y: byte; begin   readln(x);   repeat     if (x div 3 > 0) then     begin       write(3: 2);       x -= 3;     end     else     if (x div 2 > 0) then     begin       write(2: 2);       x -= 2;     end     else     if (x > 0) then     begin       write(1: 2);       x -= 1;     end;   until (x = 0); end.

Популярно: Информатика