Паскаль задачи
1.Василий и Николай собирали грибы. Василий предложил:
- Если я наберу грибов больше чем ты, то отдам тебе половину
своих грибов, в противном случае, ты отдашь мне половину своих.
Николай согласился с таким предложением.
Разработать программу, с помощью которой определяется, сколько
грибов по таким условием достанется каждому. соответствующее
сообщение выведите на экран.
Количество собранных грибов каждым участником вводится с
клавиатуры.
2.Даны три стороны треугольника (вводит пользователь с клавиатуры).
Разработайте программу для определения, является ли этот треугольник
ривнобедренним.
1.Василий и Николай собирали грибы. Василий предложил:
- Если я наберу грибов больше чем ты, то отдам тебе половину
своих грибов, в противном случае, ты отдашь мне половину своих.
Николай согласился с таким предложением.
Разработать программу, с помощью которой определяется, сколько
грибов по таким условием достанется каждому. соответствующее
сообщение выведите на экран.
Количество собранных грибов каждым участником вводится с
клавиатуры.
2.Даны три стороны треугольника (вводит пользователь с клавиатуры).
Разработайте программу для определения, является ли этот треугольник
ривнобедренним.
More Questions From This User See All
Answers & Comments
Ответ:
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.
var a,b,c:real;
begin
writeln('Введите стороны треугольника');
read (a,b,c);
if (a=b) or (b=c) or (a=c) then
writeln('Треугольник является равнобедренным') else
writeln('Треугольник не равнобедренный');
end.