Ответы на вопрос:
Var a,b,n: integer; begin writeln('введите n'); readln(n); for a: =1 to n do begin if (a mod 3=0) then b: =b+1; end; writeln('количество чисел равняется ',b); end.
Треть от 100 кб. т.к. составляем пропорцию: 300*n=x кб 900*n=100 кб отсюда: x=1/3 от 100 кб.
Популярно: Информатика
-
ГюнтерСтингерсон09.10.2021 03:55
-
жасеке13.03.2020 11:11
-
denkashavcev08.02.2021 11:36
-
odolskij201630.04.2022 21:30
-
dawesmm23.12.2020 13:13
-
finicot23.05.2020 17:26
-
Denis57729.10.2021 16:25
-
luciatarasova14.05.2020 20:58
-
Niiiiklou27.12.2020 02:56
-
ReScesS01.10.2022 11:17