Помогите решить задачу в программе Turbo Pascal. Ели вас это не затруднит, то напишите решение:)) Заранее большое спасибо:) 1)Даны две переменные целого типа А и В. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным 0 значений. Вывести новые значения переменных А и В. 2) Даны длина и высота форточки. Определите, влезет ли голова в форточку с радиусом R.

1

Ответы и объяснения

2013-02-04T16:16:51+00:00

На скорую руку сделал
1).
Program c24;
var a,b:real;
begin
readln(a,b);//ввод значений
if (a>b) or (b>a) then writeln(a+b,' ',a+b)
else
writeln(a-a,' ',b-b);
end.
2).У тебя просто голова написанна,но у нас в задачнике был мальчик по имени Федя,а суть остается той же.

program program26;
var x,y,d,c,s:real;
begin
writeln('Укажите пожалуйста размеры форточки');
readln(x,y);
Writeln('Каков диаметр головы Феди');
readln(d);
c:=x*y;//Площадь форточки
d:=d*2;
s:=3.14*(d*d);//Площадь головы
writeln(c,' ',s);//проверка значений
if c>s then writeln('Федечка тебе повело:D')else writeln ('Федя ты жирный');
end.