<span>n = int(input("Введить степень числа 6 : "))
f = pow(6,n)
a = f%<span>10
</span>print(f)
print("Последная цифра ",a)</span>
Антивирус не может:
г) сжимать файлы
5120 * 24 = 122880 бит
122880 / 15 = 8192 бит / с
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.
//Pascal ABC.NET 3.1 сборка 1219
Var
f:file;
n,i:integer;
r,s:real;
begin
randomize;
readln(n);
assign(f,'OUTPUT.DAT');
rewrite(f);
for i:=1 to n do
begin
r:=random;
if i<>n then write(f,floattostr(r),' ') else write(f,floattostr(r));
s:=s+r;
end;
close(f);
writeln(s);
end.
Пример ввода:
4
Пример вывода:
1.10933282929907
Содержимое <span>OUTPUT.DAT представлено во вложении.</span>