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

Question

Информатика

Корнила

31 января, 20:02

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

+3

Ответы (1)

Знаете ответ на вопрос?

Мишара · Answer 1

Var a, b:integer;

Begin

Randomize;

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

ReadLn (a) ;

b:=random (1501) + 500;

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

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

End.