Артём хочет обновить свои аватарки во всех соцсетях. Он сфотографировался в огороде, чтобы все знали, чем он занимается летом. Размер фотографии — 8 Мбайт. У каждой соцсети свои ограничения по размеру фото. WK (до 9024 Кбайт)

«Разноклассники» (до 7025 Кбайт)

«Тики-ток» (до 11 024 Кбайт)

«Инста»(до 1567 · 210 байт)

1 МБ = 1024 КБ

8 МБ = 8 192 КБ (займет памяти фотка)

WK 9024 > 8192 => Можно

Одноклассники 7025 < 8192 => Нельзя

Тик-Ток 11 024 > 8192 => Можно

Инстаграм 1567 * 210 =  329 070 Бт ≈ 321 КБ < 8192 => Нельзя

8 МБ = 8 192 КБ

WK  Можно

Разноклассники Нельзя

Тики-Ток Можно

Инстаграм Нельзя

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.