Составить программу на pascal для решения : еженедельно школьнику на питание выделяют n рублей. каждый - id664483720211008 от MegaCrisp1 08.10.2021 13:45

Question

Информатика: Составить программу на pascal для решения : еженедельно школьнику на питание выделяют n рублей. каждый день у него 6 уроков. после каждого урока он ходит в столовую и покупает булочку за 15 рублей и чай за 5 рублей. хватит ли школьнику выделенных денег на неделю. (компьютер должен вывести сообщение - денег хватит или денег не хватит )

MegaCrisp1 · Accepted Answer

1.

Program u666;

Var

x, y, z, t, n, e, z1, z2, z3: real;

Begin

readln (e, x, y);

if sqrt (3*y)+x = 14

then

begin

z1:= Exp(3*x*y);

z2:= x+3*y;

z3:= 0.5*x;

writeln (z1);

writeln (z2);

writeln (z3)

end

else

z:= 0;

writeln (z);

end.

2. Program Regret;

var x: integer;

begin

read (x);

if (x=1) or (x=3) or (x=5) or (x=7) or (x=8) or (x=10) or (x=12)

then write ('31');

if (x=4) or (x=6) or (x=9) or (x=11)

then write ('30');

if (x=2)

then write ('28')

end.

Объяснение:

Интернет урок)

с информатикой. Задание 1. Картинка. Составить блок-схему алгоритма и программу на Паскале для вычис

MOGZ ответил