Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
//6
Var
a,b,c:integer;
begin
read(a,b,c);
if a>=0 then a:=sqr(a);
if b>=0 then b:=sqr(b);
if c>=0 then c:=sqr(c);
writeln(a);
writeln(b);
writeln(c);
end.
//8
Var
x,y,z:real;
begin
readln(x,y,z);
if (x+y+z)<1 then
begin
if (x
ГостьЗадача 6.
Program asd;
var a,b,c,s: real;
BEGIN
Write ('Введите a: '); readln (a);
Write ('Введите b: '); readln (b);
Write ('Введите c: '); readln (c);
if (a>=0) then begin a:=a*a; Writeln('A: ',a);end;
if (b>=0) then begin b:=b*b; Writeln('B: ',b);end;
if (c>=0) then begin c:=c*c; Writeln('C: ',c);end;
Readln();end.
Задача 8.
Program asd;
var x,y,z,res,min: real;
BEGIN
Write ('Введите X: '); readln (x);
Write ('Введите Y: '); readln (y);
Write ('Введите Z: '); readln (z);
res:=x+y+z;
if res<1 then begin writeln ('Сумма меньше 1');
if (x