Program pr;
var norma,total:real;day:integer;
begin
norma:=10;
day:=0;
repeat
day:=day+1;
writeln('День: ',day);
writeln('Норма: ',norma:0:1,' км');
writeln();
total:=total+norma;
norma:=norma*1.1;
until day=7;
writeln();
writeln('Всего: ',total:0:1);
end.
Полюбому ты эти вопросы взял из книжки, поэтому посмотри тему и ты найдешь свой ответ
Ответ выводится в формате (номинал) х (кол-во)
Одна программа длинная, но простая, а другая - более сложная.
Процессор, оперативная память.