1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
Помогите :
Красная Шапочка часто навещает свою бабушку . Но она очень Боится, что рано или поздно ее бабушку опять навестит волк. Поэтому она решила договориться с Лесничим об охране бабушке. Лесничий согласился охранять бабушку за 10 пирожков. Узнав об этом , волк сказал Красной Шапочке , что ей совершенно незачем тратить пирожки на Лесничего. За половину тех пирожков , которые Красная Шапочка несет,и не больше,чем запросил лесничий , Волк пообещал не трогать ее.Сегодня (29 ноября) в России отмечается день матери . Мама испекла несколько пирожков , и попросила Красную Шапочку отнести их бабушку.Требуется определить, сколько Красная Шапочка сможет донести до бабушки.
Формат входных данных :
Во Входном файле содержится N (1<N<100) - натуральное четное число - количество пирожков,которые испекла мама.
Формат выходных данных:
В единственную строку выходного файла нужно вывести одно число-количество пирожков , которые красная шапочка сможет донести до бабушки.
ВСЕ ЭТО В ПРОГРАММЕ PascalABC.NET
=ЕСЛИ(G5>50;"Мастер";ЕСЛИ(G5>40;"Кандидат";"Участник") )
Program p1;
uses crt;
var a,b,p:integer;
begin
read(a,b);
p:=a*b;
If P= 100 then
write('Да, равно 5')
else write('Нет, неравно 5');
end.
Просто подставляем
Для начала узнаем А4, где написанно, что оно равно B1+B2=1+2=3
A4=3
A1=A4-B1=3-1=2
A2=A1+2=2+2=4
A3=A2+B1=4+1=5
Соответствующая таблица находится под номером 3
Ответ: 3