var
a,b,c:integer;
M:array [1..10] of integer;
begin
b:=0;
M[1]:=1;
for a:= 1 to 10 do M[a]:=a+1;
for a:= 1 to 10 do
if (M[a] mod 3=0)then b:=b+1;
if (M[a] mod 5=0)then c:=c+1;
end;
writeln ('На 3 делится ',b,' чисел(a)');
writeln ('На 5 делится ',c,' чисел(a)');
end.
Написал и проверил в паскале :)
Хорошего дня.
..........................................................................
На дискете обычно 1.4 Мб, на CD-диске - 700 Мб, на DVD - 4700 Мб.
Из второго можем сразу найти, что на флешке 2701.4 - 1.4 - 700 = 2000 Мб.
Ответ:
a=open("input.txt").read().split()
a=list(map(int,a))
b=open("output.txt","w")
b.write(str(sum(a))+"\n")
b.write(str(sum(a)/len(a)))
b.close
Объяснение: