Дано 3 числа, які є датами (вводимо з клавіатури). порахувати кількість днів від початку нового року до заданоі дати. это lazarus

188

197

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

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

Eragggqqq

Информатика

4,8(81 оценок)

Var k: integer; a, s: real; begin write('начальная стоимость: '); readln(a); write('число проданных газет: '); readln(k); if k < = 50 then s : = k * a else begin s : = 50 * a; s : = s + (k - 50) * a * 1.2; end; writeln('выручка составила ', s, ' руб.'); end.