Помогу чем могу
В первом задании я так думаю нужно объявит ьпеременну 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.
Умножь 7 на 33(Столько букв в русском языке) = 231
Uses crt;
var a:integer;
begin
writeln('Введите число');
read(a);
if Length(inttostr(a))=2 then a:=a+18;
writeln(a);
<span>end.</span>
<span>1. Аудиторией называется специально оборудованное помещение (в каком-либо университете, институте ит. д.) для чтения лекций и проведения учебных занятий.<span>Лекционная аудитория.</span></span><span>2. Аудиторией называются все те люди, которые пришли послушать лекцию, речь, выступление и т. п.<span><span>Ответить на вопросы аудитории.</span> | <span>Установить контакт с аудиторией.</span></span></span><span>3. Читательской, зрительской, слушательской аудиторией называют тех людей, которые читают книги,смотрят телевидение, слушают радио.</span>
c*a+b=-1
-1*a+b=0
0*a+b=4
b=4, a=b=4, c=-5/4
“c” - не целое число, вопреки условию.
То есть при заданных аргументах, задача не решаема.
В тоже время, задача становится решаемой, если первый член последовательности равен не -1, а -2 (то есть при последовательности -2,0,4).
c*a+b=-2
-2*a+b=0
0*a+b=4
b=4, a=2, c=-3
Четвертый член последовательности, в этом случае, вычисляется так:
4*a+b=4*2+4=12
