1. Напишите программу, которая спрашивает у пользователя сколько деревьев он посадил и...

Question

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

Answer 1

Var a,b:integer;
Begin
Randomize;
Write('Введите количество посаженных деревьев: ');
ReadLn(a);
b:=random(1501)+500;
WriteLn('Исходное кол-во деревьев: ',b);
WriteLn('Общее количество деревьев в парке: ',a+b);
End.