F = true. А вообще, это можно набрать в паскале и проверить)
30 * 40 * 50 = 60000 сим
1-н сим - 8 бит (кодировка 8 разряд)
60000 * 8 / 8 = 60000 байт
Program n_1;
uses math;
var a:array [1..6] of integer; i: integer;
begin
for i:=1 to 6 do begin read (a[i]); a[i]:=a[i]*2; end;
writeln;
for i:=1 to 6 do write(a[i], ' ');
end.
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.
Если первая буква гласная, то удалить её и вывести полученное, а если согласная, то просто вывести.