program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]); writeln('введите элементы массива 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 a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.
Ответ дал: Гость
var
a: [1..100] array of integer;
i,n,p: integer;
begin
readln(n);
for i: =1 to n do
begin
readln(a[i]);
p: =2;
while (p*p< =a[i]) do
begin
if p*p=a[i] then writeln (a[i],' полный квадрат')
p: =p+1;
end;
end;
end.
Ответ дал: Гость
var ch,n,i: longint;
ch1,s: string;
begin
read(s,ch);
n: =length(s);
writeln(n,' ',ch);
str(ch,ch1);
for i: =1 to n do if s[i]=ch1 then write(i,' ');
end.
Ответ дал: Гость
a*b*i=i
n=2^i
где a*b-размер изображения, n-количество цветов,i-количество памяти на один пиксел, i-вес рисунка(бит)
1)64*64*i=512*8
i=1
n=2
ответ: 2
2)256=2^i
i=8
a*b*8=2400*8
a*b=2400
ответ: 2400
3)n1=4=2^2
i1=64*128*2=2^14бит=2кбайт
n2=16=2^4
i1=32*32*4=2^12бит=0,5кбайт
ответ: на первое изображение потребуется в 4 раза больше места
Популярные вопросы