1. Напишите программу, которая спрашивает у пользователя сколько деревьев он посадил и потом прибавляет это количество к уже имеющимся деревьям и выводит на экран общее количество деревьев в парке.

Question

Информатика

Филофея

28 августа, 23:47

1. Напишите программу, которая спрашивает у пользователя сколько деревьев он посадил и потом прибавляет это количество к уже имеющимся деревьям и выводит на экран общее количество деревьев в парке.

+2

Ответы (1)

Знаешь ответ?

Магда · Answer 1

Var a, b:integer;

Begin

Randomize;

Write ('Введите количество посаженных деревьев: ');

ReadLn (a);

b:=random (1501) + 500;

WriteLn ('Исходное кол-во деревьев: ', b);

WriteLn ('Общее количество деревьев в парке: ', a+b);

End.