Заданы три числа а, в, с. если они все положительны, то найти их корни; если все отрицательны, то возвести каждое из них в квадрат, иначе найти их сумму. записать программу, которая на ввод времени суток выводит соответствующее по- желание доброго утра, доброго дня, доброго вечера и спокойной ночи вводится последовательность ненулевых чисел, 0 – конец последовательности. найти наибольшее и наименьшее среди них.
Паскаль
1 номер
program gg1;
var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите числo а');
read(a);
writeln('Введите числo c');
read(c);
writeln('Введите числo b');
read(b);
if (a>=0) and (b>=0) and (c>=0) then begin
a1:=sqrt(a)
b1:=sqrt(b)
c1:=sqrt(c)
writeln(a1)
writeln(b1)
writeln(c1)
end;
else
if (a<0) and (b<0) and (c<0) then begin
a1:=a*a
b1:=b*b
c1:=c*c
writeln(a1)
writeln(b1)
writeln(c1)
end;
else begin
s:=a+b+c; writeln(s); end; end.