ПОМОГИТЕ ПОЖАЛУУЙСТА ОЧЕНЬ СРОЧНОО! НАПИШИТЕ ПРОГРАММЫ

Question

ПОМОГИТЕ ПОЖАЛУУЙСТА ОЧЕНЬ СРОЧНОО! НАПИШИТЕ ПРОГРАММЫ:

Answer 1

66

irinapopova

13 февраля 2023

var i, n: integer; price: real; begin n: =20; price: =20,4; for i: =1 to n do writeln ('Стоимость ', i: 3, ' ед. Товара составляет ', price*i: 8:2, ' руб.'); end. //вторая задачаvar i, f, n: integer; begin f: =453; n: =10; writeln ('фунты граммы'); for i: =1 to n do writeln (', i: 2, i*f: 11); end. //третья задачаvar i, n: integer; k: real; begin n: =20; writeln ('Введите курс '); readln (k); writeln ('доллары рубли'); for i: =1 to n do writeln (', i: 2, i*k: 13:2); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: