Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
а)самый большой овал-танцоры
далее-актеры
и самый маленький- певцы
в) 2 элемента.
50зн=50байт
60зн=60байт
1кбайт= 1024байта
1мб=1024кбайта
=> 1мбайт=(1024*1024)байт
1мбайт=1048576 байт
50байт/1048576байт=0,0000476837мбайт
60байт/1048576байт=0,0000572205мбайт
используется язык pascal
program pr;
var
mas: array[1..7] of integer;
i: integer;
begin
writeln('вводим значения в массив');
for i: =1 to 7 do readln (mas[i]);
writeln('выводим значения из массива');
for i: =7 downto 1 do writeln(mas[i]);
readln;
end;
program xxx;
var k, d, n : integer;
pr : boolean;
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
readln
end.
Популярные вопросы