Помогите, пожалуйста!!!! Очень надо.... Напишите на языке Pascal. Created by anyasid215. informatika-ru

Помогите, пожалуйста!!!! Очень надо.... Напишите на языке Pascal...

anyasid215 @anyasid215

July 2022 1 1 Report

Помогите, пожалуйста!!!! Очень надо.... Напишите на языке Pascal

Answers & Comments

Gleb1Kosyrev

Verified answer

var ar:array[1..10] of real;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if frac(sqrt(ar[i]))=0 then writeln(ar[i]);
end.

2 votes Thanks 1

anyasid215 спасибо большое)))

anyasid215 а можно спросить, что значит в эта строка if frac(sqrt(ar[i])?

anyasid215 вот эта*

Gleb1Kosyrev Если дробная часть квадратного корня из элемента массива равна 0

anyasid215 Поняла) Спасибо огромное!

pomogite pozhalujsta57d6c66d2527e99d59fa41ab79766ae9 77127

Answer

anyasid215 July 2022 | 0 Ответы

massovaya dolya sery v binarnom soedinenii ravna 40 opredelite formulu veshestva

Answer

anyasid215 September 2021 | 0 Ответы

Answers & Comments

Verified answer

pomogite pozhalujsta57d6c66d2527e99d59fa41ab79766ae9 77127

massovaya dolya sery v binarnom soedinenii ravna 40 opredelite formulu veshestva

pomogitec2fbc10fe99c5efe827a9f06903574b8 59688

pomogite ochen proshub3742a308e257ce2b1d7a624a167daad 92096

pomogite pozhalujsta sostavit 10 opticheskih izomerov enantiomerov dlya c12h26

рекомендуемые вопросы

Helpful Links

Helpful Social