)заранее напишите программу, которая решает следующую оплата интернета в школе состоит из двух частей: 100 долларов в месяц за доступ и 5 долларов в месяц за поддержку школьного сайта. платеж можно делать независимо за любое количество месяцев за доступ и за поддержку сайта. напишите программу, которая позволяла бы вводить отдельно количество оплачиваемых месяцев для доступа и поддержки и выводила бы сумму оплаты.

299

483

Посмотреть ответы 3

Ответы на вопрос:

zukhra1234

Информатика

4,7(50 оценок)

Var m1,m2,s: integer; begin write('количество месяцев за доступ к интернет: '); readln(m1); write('количество месяцев за поддержку школьного сайта: '); readln(m2); s: =m1*100+m2*5; writeln ('сумма оплаты = ',s); end. пример: количество месяцев за доступ к интернет: 5 количество месяцев за поддержку школьного сайта: 4 сумма оплаты = 520

maximax325

Информатика

4,4(74 оценок)

Типа так? ? program z1; var m: integer; d,p: real; begin writeln('введите кол-во месяцев, за которые будет произведена оплата: '); readln(m); d: =m*100; p: =5*m; writeln (d,' долларов - за доступ и ',p,' долларов - за поддержку сайта'); end.