Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

1. В Паскале:
Ввести три целых величины А, В и С . Если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1, а если это не так, заменить каждую величину её квадратом.
2. В Паскале:
Ввести радиус круга и сторону квадрата. У какой фигуры площадь меньше?

Ответ оставил Гость

1.
Var
  a,b,c:integer;
Begin
  Write(Введите а, в, с: );
  Readln(a,b,c);
  if abs(a+b+c)>3 then write(Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ,a,-1 = ,a-1,,  ,b,-1 = ,b-1,, ,c,-1 = ,c-1) else write(Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ,a,^2 = ,sqr(a),, ,b,^2 = ,sqr(b),, ,c,^2 = ,sqr(c));
End.

2.
Var  r,a:integer;
Begin 
Write(Введите радиус круга ); 
Readln(r); 
Write(Введите сторону квадрата ); 
Readln(a); 
writeln(S круга = ,sqr(r)*pi,, S квадрата = ,sqr(a)); 
if (sqr(r)*pi) > (sqr(a)) then write(S круга больше, чем S квадрата) else if (sqr(r)*pi) < (sqr(a)) then write(S квадрата больше, чем S круга) Else write(S круга = S квадрата);
End.