Паскаль задачи 1.Василий и Николай собирали грибы. Василий предложил: - Если я наберу грибов больше чем ты, то отдам тебе половину своих грибов, в противном случае, ты отдашь мне половину своих. Николай согласился с таким предложением. Разработать программу, с которой определяется, сколько грибов по таким условием достанется каждому. соответствующее сообщение выведите на экран. Количество собранных грибов каждым участником вводится с клавиатуры. 2.Даны три стороны треугольника (вводит пользователь с клавиатуры Разработайте программу для определения, является ли этот треугольник ривнобедренним.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Перевод математических выражений на язык паскаль (2*y+(2/x^2))^x
Автор: Анатольевна
Как называется процесс, в ходе которого изменяется информация и еёсостояние?
Автор: Vladimirovna-Ignatenko1890
Определить объем информации в сообщении
Автор: zu87zu87
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.