Question

в городе 3 района,в районе х библиотек для детей,у библиотек для взрослых.Сколько библиотек в городе и сколько в районе

Answer 1

program n_1;
var gorod, x, y: integer;
beginwrite('Введите кол-во библиотек для детей: ');readln(x);write('Введите кол-во библиотек для взрослых: ');readln(y);writeln('В районе ', x, ' библиотек для детей');writeln('В районе ', y, ' библиотек для взрослых');writeln('В городе ', 3*x, ' библиотек для детей');writeln('В городе ', 3*y, ' библиотек для взрослых');end.

Answer 2

program n_1;

var gorod, x, y: integer;

begin
write('Введите кол-во библиотек для детей: ');
readln(x);
write('Введите кол-во библиотек для взрослых: ');
readln(y);
writeln('В районе ', x, ' библиотек для детей');
writeln('В районе ', y, ' библиотек для взрослых');
writeln('В городе ', 3*x, ' библиотек для детей');
writeln('В городе ', 3*y, ' библиотек для взрослых');
end.