РЕШИТЬ ЧЕРЕЗ ЦИКЛЫ WHILE, REPEAT или FOR - вопрос №12434703 от araratpashayan5 28.03.2020 16:58

Question

Информатика: РЕШИТЬ ЧЕРЕЗ ЦИКЛЫ WHILE, REPEAT или FOR

araratpashayan5 · Answer

var n, s: Integer;begin   Write ( Введите натуральное число: );   Read (n);   s := trunc (sqrt (n));   Writeln ( Целый квадратный корень из + IntToStr (n) + = + IntToStr (s));   Readln;end;Объяснение:...