Текст занимает 10 страниц. На каждой странице 32 строки по 64 символа в строке. Найти объём оперативной - id1534839220201204 от ирина1853 06.12.2021 09:24

Question

Информатика: Текст занимает 10 страниц. На каждой странице 32 строки по 64 символа в строке. Найти объём оперативной памяти (В самых больших единицах).

ирина1853 · Accepted Answer

Составил тебе только программу. Для блок-схемы создавай отдельную тему.

const

a = 3.14;

b = -7.8;

n = 15;

x: array[1..n] of real = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214, -3.837, 0.918, -75.014);

var

i, k: integer;

p: real;

begin

k := 0;

p := 1;

for i:=1 to n do

if (x[i]>0) and (x[i]>b) then

begin

p := p * x[i];

inc(k);

end;

if k = 0 then writeln('Нет искомых элементов в массиве')

else writeln('Количество искомых элементов: ',k,'; их произведение = ',p:0:3);

end.

Текст занимает 10 страниц. На каждой странице 32 строки по 64 символа в строке. Найти объём оперативной памяти (В самых больших единицах).

MOGZ ответил