Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Program Schet;
var
i:integer;
stoimost:real;
godi:integer;
Begin
Write('Введите стоимость стола: ');
Readln(stoimost);
Write('Введите количество лет: ');
Readln(godi);
for i:=1 to godi do
Begin
stoimost-=stoimost*0.12;
Writeln('Стоимость стола на конец '+ i + ' года: '+stoimost );
End;
End.