Var a: integer;
begin
a:=0;
for var i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.
<span>var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 3 = 0 then s:=s+i;
writeln('s = ',s);
end<span>.
Результат:
</span><span>s = 1683</span></span>
Можно если ты им владеешь как то странно будет если на егэ придёт человек и сядет на паскаль абц и вообще вроде бы если ты будешь здавать инфу ты будешь здавать не програмы а физику
А) 1 байт = 8 бит
7 бит < 8 бит
7 бит < 1 байт.
б) 1 Кбайт = 1024 байт
1024 байт > 1000 байт
1 Кбайт > 1000 байт.
в) 1 Гбайт = 1024 Мбайт
1025 Мбайт > 1024 Мбайт
1025 Мбайт > 1 Гбайт.
<span>Microsoft Word — текстовый процессор, предназначенный для создания, просмотра и редактирования текстовых документов, с локальным применением простейших форм таблично-матричных алгоритмов.</span>