Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
Ответ под цифрой 4 -имеет свойство автоматического наращивания
1) Для четверки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 4 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
2) Для семёрки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 7 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
(1024*768*24)/(1024*1024*8)=2,25мб
В первой скобке размер изображения в битах, во второй приводим к мегабайтам
Відповідь:
Информация НЕ измеряется в ботах
Пояснення:
Тут нечего объяснять, просто почитайте в интернете про единицы измерения информации