Const n=8;
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.
если нужно без массива, напишите
Str = float(input())
if str < 0.000001:
print(0)
else:
print(str ** -1)
Ответ:
в) Вежливость
Объяснение:
Во всех отношениях с людьми нужна вежливость)
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var y:=ReadReal('Введите неотрицательное число:');
var x:=Sqrt(y);
Writeln('Корень из этого числа: ',x)
end.
Все зависит от типа файла!!!