Помогу чем могу
В первом задании я так думаю нужно объявит ьпеременну i?
var i:integer
Во втором задании
у тебя n нигде не описано и не присвоено, также и I не описано, во втором цикле также a[i] ошбика, должно быть a[I]
В третьем задании
11 6 8 10 12
Последнее задание (напишу в кратце тебе лишь оформить)
a: array[1..30] of integer;
begin
s:=1;
for i:=1 to 30 do begin
writeln("Введи ", i, " элемент");
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i]<20) then s=s*a[i];
end;
writeln(s);
end.
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
Program Project1;
var a:array[0..9] of integer; i,sum:integer;beginrandomize;sum:=0; for i:=0 to 9 do begin a[i]:=random(10); Write(a[i],' '); if a[i] mod 2 = 0 then sum:=sum+a[i]; end; Writeln('Sum: ',sum); readln(i);end.<span>
</span>
Набор данных-журнал, ключ поиска-графа оценок, критерий поиска-5 по информатике
Пятизначное число в троичной системе счисления должно иметь ненулевой пятый разряд, т.е. в десятичной системе счисления его величина должна принадлежать интервалу [3^4; 3^5-1], что составляет [81;242].
В римской записи (а не системе счисления, римляне использовали десятичную) этот интервал запишется как [LXXXI;CCXLII], т.е. будут использованы символы С, I, L, X, V
