Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
В double d1,d2 добавить переменную суммы s
double d1,d2,s;
вместо ??? записать s=d1+d2;
N =28.
Рассуждаем так. Начинаем с конца алгоритма.
В последнем цикле по его завершении N=0 , т.к. j в итоге равно 6, значит цикл проработал 6 раз. Соответственно N 6 раз уменьшали на а. Произведём обратную операцию, т.е. увеличим 0 на 3 6 раз. Получается N=18.
Аналогично действуем с первым циклом. i=2, значит цикл работал 2 раза. Значит N увеличиваем на b 2 раза. Т.е. 18 увеличиваем на 5+5. Итого N=28
Дополнительное ПО, суда можно отнести Microsoft word Openoficeorg, Writer и другие
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.