Регистрация
firstoneking1
25.10.2020 13:35
Информатика
Есть ответ 👍

Var s,k: integer; begin s: =0; for k : =1 to 10 do s: =s+7; writel(s); end.

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

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

Matthi
Matthi
4,4(93 оценок)

program

var a,b,c,d,n: integer;

begin

write('введите кол-во учеников в классах: ');

read(a,b,c);

writeln('введите кол-во учебников в библиотеке: ');

read(n);

d: =a+b+c;

if (n> =d) then writeln('учебников хватит.')

else
writeln('учебников не хватит.')

end.

Популярно: Информатика