Регистрация
MiliitVel1
28.03.2022 23:50
Информатика
Есть ответ 👍

Даны два числа возвести в квадрат отрицательные извлечь корень квадратный из положительных.

137
242
Посмотреть ответы 2

Ответы на вопрос:

Вадим363737466
Вадим363737466
4,7(83 оценок)
Var x,y: real; begin read(x,y); if x< 0 then x: =x*x else x: =sqrt(x); if y< 0 then y: =y*y else y: =sqrt(y); write(x,' ',y); end.
mugenovak
mugenovak
4,6(28 оценок)

varx,i,k: integer; a: array [1..10] of integer; begin

writeln ('vvedi x');

read (x);

for i: =1 to 10 dobeginread (a[i]);   if a[i]=1 then x: =x+1;   end;   writeln ('edinice=',x,' elements'); end.

Популярно: Информатика