Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A<0 then A:=A*A;
WriteLn(A)
End.
Var
X,Z:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Z:=X*X;
WriteLn('Z = ',Z);
End.
Смотри решение во вложении
Ответ:
Объяснение:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушать порядок других оставшихся чисел
У нас будет 4 итерации цикла: (условно) 4-я, 5-я, 6-я и 7-я. Каждую итерацию к предыдущему числу прибавляется 8. То есть:
0 (это ещё не цикл) + 8 + 8 + 8 + 8 = 32
<h2>Ответ</h2>
32
В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)