Var a,b:real; //Создание переменных а и б
begin //Начало программы
Writeln('Введите число '); //Написание "Введите число"
Read(a); //Считывание числа
b:=sqrt(a);//Нахождение квадратного корня
Writeln('Квадратный корень = ',b);//Написание "Квадратный корень = " и корня числа
End.//Конец программы
Нет, без дополнительных программ нельзя.
<span>какому десятичному числу соответствует двоичный код 00101010 </span>Ответ будет : 42
Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.
Задача решается с помощью "дерева". Записываешь 3 сверху и 2 ветки от числа. 1 ветка - +1, 2 ветка - *3. В итоге получится 2 числа. 4 и 9. От этих чисел еще по 2 ветки. и так далее пока не получится 34.
Ответ:21121