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

Question

Информатика

Эладя

29 октября, 10:54

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

+2

Ответы (1)

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

Альбина · Answer 1

Var a, b:integer;

Begin

Randomize;

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

ReadLn (a) ;

b:=random (1501) + 500;

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

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

End.