Предмет: Информатика, автор: ilan48597

Помогите пожалуйста с 9 заданием, находил тут ответ но он не правильный.Если что то PascalABC

Приложения:

Ответы

Автор ответа: Angelina1A
0

var x: real;

i: integer;

begin

write ('x = ');

readln(x);

for i:=1 to 10 do writeln (0.1*i:2,' кг конфет стоит ',x/10*i:0:2, ' рубл.' );

end.


ilan48597: Уверен(на)что правильно?
Angelina1A: да
Похожие вопросы