Var a: array [1..1000] of integer; i,j,n,k:integer; begin k:=0; write ('количество чисел'); read(n); for i:=1 to n do begin a[i]:=random(100); if (i mod 2)=1 then k:=k+a[i]; end; for i:=1 to n do writeln (a[i]); write (k); end.
Язык программирования не указан, поэтому был выбрана система PascalABC.Net
const Gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы', 'Э','э','Ю','ю','Я','я']; stop='$'; var c:char; n:integer; begin Writeln('Вводите текст по одному символу, завершив ввод символом ',stop); n:=0; repeat ReadLn(c); if c in Gl then Inc(n) until c=stop; Writeln('Количество гласных букв равно ',n) end.
Напоминаю, что в Паскале ввод каждого отдельного символа с клавиатуры должен завершаться нажатием клавиши Enter!
Если в записи числа присутствует цифра 8, то её основание не может быть меньше 9. В девятиричной системе двух разрядов достаточно для представления числа 88(9)=9х8+8=80(10), поэтому в системе с любым рассматриваемым нами основанием число 32 будет двухзначным. Запишем 32 в расширенной форме в системе счисления по основанию n: 32(10)=a x n + b. По условию запись числа оканчивается цифрой 8, т.е. b=8. Тогда an+8=32 или an=24. Остается решить полученное уравнение в целых числах относительно минимального n≥9: n=24/a Разложим 24 на множители: 24 = 2 х 2 х 2 х 3, ⇒ а ∈ (2, 3, 4, 6, 8, 12, 24) a=2 ⇒ n=12 a=3 ⇒ n=8, что уже меньше 9 и большие значения a можно не рассматривать. Полагая а=2 и n=12 получаем запись 28 в двенадцатиричной системе. Проверка: 28(12)=2х12+8=24+8=32(10). ответ: 12
a: array [1..1000] of integer;
i,j,n,k:integer;
begin
k:=0;
write ('количество чисел');
read(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (i mod 2)=1 then
k:=k+a[i];
end;
for i:=1 to n do
writeln (a[i]);
write (k);
end.