Паскаль задачи 1.Василий и Николай собирали грибы. Василий предложил:

- Если я наберу грибов больше чем ты, то отдам тебе половину
своих грибов, в противном случае, ты отдашь мне половину своих.

Николай согласился с таким предложением.

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

Количество собранных грибов каждым участником вводится с
клавиатуры.
2.Даны три стороны треугольника (вводит пользователь с клавиатуры).
Разработайте программу для определения, является ли этот треугольник
ривнобедренним.

Ksenia2351 Ksenia2351    3   05.12.2020 13:03    1

Ответы
Printsesska042017 Printsesska042017  04.01.2021 13:04

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика