<span>142</span>×<span>4=568 Мб
</span>В флешке останется еще 1,5 Гб
Пишешь свое мнение. Например: в сети есть совершенно все, что нам нужно. Люди в интернете делятся своим опытом, отвечают на вопросы, создают сайты и электронные словари. Благодаря интернету, мы можем общаться с людьми, находить новые знакомства и даже отношения.
Var i:longint; m:array[1..10] of longint;
Begin
for i:=1 to 10 do
begin
read(m[i]);
if m[i] mod 2 = 1 then
m[i]:=m[i]*4 else
m[i]:=m[i]*3;
end;
for i:=1 to 10 do
write(m[i],' ');
<span>End.</span>