Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
Круглая диаграмма
так как как ты на ней что то сделаешь?
1. 1)30*70=2100(байт) требуется для хранения 1 страницы
2)10500/2100=5(стр) займет этот текст при печати
Ответ: г)
2. Т.к. программа находится на одном из восьми дисков=>N=8
Воспользуемся формулой нахождения информации
N=2^I
Подставим
8=2^i
I=3
Ответ: б)