Паскаль задачи 1.Василий и Николай собирали грибы. - вопрос №153750051 от dashkastroga 05.06.2021 18:33

Question

Информатика: Паскаль задачи 1.Василий и Николай собирали грибы. Василий предложил: - Если я наберу грибов больше чем ты, то отдам тебе половину своих грибов, в противном случае, ты отдашь мне половину своих. Николай согласился с таким предложением. Разработать программу, с которой определяется, сколько грибов по таким условием достанется каждому. соответствующее сообщение выведите на экран. Количество собранных грибов каждым участником вводится с клавиатуры. 2.Даны три стороны треугольника (вводит пользователь

dashkastroga · Answer

Program z1;

var a,b,c:real;

begin

writeln('Введите, сколько грибов собрал Василий');

read(a);

writeln('Введите, сколько грибов собрал Николай');

read(b);

if a>b then

begin

a:= a/2;

c:= a;

b:= a+c;

writeln(' Василий собрал ',a,'Николай собрал ',b);

end

else

a:=a;

b:=b;

writeln(' Василий собрал ',a,' Николай собрал ',b);

end.