Такие задачи проще решать с конца и менять знаки операций на противоположные:
44 /4 команда 2
11+1 команда 1
12/4 команда 2
3+1 команда 1
4/4 команда 2
1
Собираем получившиеся команды с конца: 21212
Ответ: 21212
x: - входное число, целое
а: - целое
шаг 1.
x - делится на 5 ?
если да то ответ YES, выход
шаг 2.
а: = x-5*целое (х/5)
шаг 3
a - делится на 3 ?
если да то ответ YES, выход
шаг 4
a:=a+5
шаг 5
a - больше чем х ?
если да то ответ NО, выход
переход на шаг 3
Ответ:
Объяснение:
1)A6.
2) Текстовая.
3)A1;B1;A2;B3;B4;A5;B5;A6.
4)A3;A4;B7.
5)A7.
Var
a,b,c:integer;
begin
read(a,b,c);
if a<b then a:=b;
if a>=c then writeln(a) else writeln(c);
end.
Переменная а, в, с, х:целый;
Начало
ввод(а);
с:=0;
для в:=1 до а делать
Начало
ввод(х);
если х>0 тогда начало
с:=с+х;
конец;
вывод("Количество слагаемых: ", в, " Сумма: ", с);
конец.