Помогите: Составьте слова из букв к,е,н,г,ш,а,п,р,о,м,и,т
irichka7575
Шар,шаг,ритм,рог,ринг,тигр,рот,ром,ген,мера,кино,мир,пот,море,ком,кит,тик,ток,шпат,морг,тир
Program primer;
var y, x: real;
begin
x:=1;
repeat
y:=x*x-16*x+32;
write(y)
x:=x+0.25;
until x < 10;
readln;
end.
Алгоритм 21211
вычти 1: 27-1=26
раздели на 2: 26/2=13
вычти 1: 13-1=12
раздели на 2: 12/2=6
раздели на 2: 6/2=3
Ответ: 21211
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var y:=ReadReal('Введите неотрицательное число:');
var x:=Sqrt(y);
Writeln('Корень из этого числа: ',x)
end.
Int- в паскале возвращает целую часть числа х
Ответ : 6