Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
Для начала найдем количество символов на одной страница, для этого умножим 40 на 64=2560 символов на одной странице. Теперь переведем 10КБайт в Байт, умножим 10 на 1024=10240Байт. И остается найти количество страниц, делим 10240 на 2560=4
Дано: СИ:
x=40 |
y=64 |
z=? |
b=10КБ | 10*1024=10240Байт
Решение:
xy=40*64=2560
z=b:xy=10240:2560=4
Ответ: 4 страницы
Program m3;
var s,k,m:real;
begin
readln(m,k);
writeln('m=',m,' k=',k);
s:=(26*k-m)/(6-4*k-56*m*k);
writeln('s=',s);
<span>end.</span>