№ 20 Ответ: г
№ 21 Ответ: в
№ 22 Ответ: а
№ 23 Ответ: б
№ 24 Ответ: а
№ 25 Ответ: б
№ 26 Ответ: в
№ 27 Ответ: а
№ 28 Ответ: общение, развлечение, денежные операции и т. д.
procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.
400 мб картинки
16*100*80*2000=256 млн бит=32 млн байт=31250 кбайт=30 мбайт и 530 кбайт
итого
400 мб + 30 мб+530 кбайт = 430 мб и 530 кбайт
на флешку влезет
Решение находиться во вложении
//PascalABC.NET 3.2 сборка 1318
Var
n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.
Пример ввода:
234
Пример вывода:
423