Program chik; const n=15; var P:array[1..15]of real; i:integer; s:real; begin s:=0; for i:=1 to n do begin read(p[i]); if(i mod 2=0)and(p[i]<0)then s:=s+p[i]; end; writeln(s); end. 2) program gt; uses crt,graphabc; const n=7; var mac1,mac2,mac3:array[1..15]of real; i,k1,k2:integer; begin k1:=0;k2:=0; for i:=1 to n do begin read(mac1[i]); if(mac1[i]>0)then begin Inc(k1); mac2[k1]:=mac1[i]; end; if(mac1[i]<0)then begin Inc(k2); mac3[k2]:=mac1[i]; end; end; for i:=1 to n do write(mac1[i],' '); writeln; for i:=1 to k1 do write(mac2[i],' '); writeln; for i:=1 to k2 do write(mac3[i],' '); end.
А) Чтобы перевести из 2-ой в 8-ую , нужно отделить от числа три цифры(так как в 8-ой системе двоичный триад (группа по 3 цифры) и под отдельности считаешь, а потом соединяешь получившееся числа! Вот пример: 101001, разбиваем по 3 цифры и считаем 101=>1*2^2+0*2^1+1*2^0=5 001=>0*2^2+0*2^1+1*2^1=1 В ответе получается число 51 в 8-ой системе! Чтобы в 16 систему перевести отделять по 4 цифры! Пример с тем же числом: 101001, нам не хватает 2-е цифры, значит добавляем 00, перед этим числом 00101001 и считаем 0010=>0*2^3+0*2^2+1*2^1+0*2^0=2 1001=>1*2^3+0*2^2+0*2^1+1*2^0=9 В ответе 29! А в 10-ую переводи просто, не отделяя цифр и все! Б)A=10 F=15 , вот и переводи 1015 в 2-ую систему , методом деления на 2!
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
Range(2,s.Length,2).Select(i->s[i]).Println
end.
Пример
Информатика
номтк