Регистрация
Nikbatyr
15.05.2023 08:29
Информатика
Есть ответ 👍

Спаскалем. напечатать все различные разбиения числа n на 3 натуральных слагаемых. заранее .

161
246
Посмотреть ответы 2

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

danilovairinka
danilovairinka
4,8(2 оценок)
Uses crt;   var //блок начала перпеменных   n,a,b,c: integer; // объявляем переменные   begin   clrscr;   readln(n);   for a: =1 to n-2 do     for b: =1 to n-a-1 do       begin         c: =n-a-b;       writeln('variant: ',a,',',b,',',c);       end;       readln;   end.
JIuchno
JIuchno
4,8(100 оценок)
Var a: real; begin   readln(a);   a: =a/100*15;   writeln(a); end.

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