program task;
var a,b,c,x:real;
begin
readln(a,b,c);
x:=sqrt(4*a*c+b);
writeln(x)
end.
Объёмная мощность составлющая 250 кбайта
но я не уверена
Ответ:
Объяснение:
Program check;
var a,b,c,d,f,max:real;
Begin
writeln('Введите 5 чисел');
readln(a,b,c,d,f);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
if f>max then max:=f;
writeln('Большее из чисел равно ',max);
end.
Вот посмотри!.....................................................................................................................
PROGRAM
Privet;
VAR
x:
real;
BEGIN
writeln(
'Который час?'); read(x);
if
x>
24 then
writeln(
'Введенное число не является временем ' )
else
begin
if
(x>=
8) and (x<12) then writeln('Доброе утро!');
if
(x>=
12) and (x<17) then writeln('Добрый день!');
if
(x>=
17) and (x<23) then writeln('Добрый вечер!');
if
(x>=
23) or (x<8) then writeln('Доброй ночи!');
end
;
end
.