Как-то условие не очень понятно. Если требуется найти сумму ДВУХ чисел, то программа может быть такой:
var a1,a2,s: integer;
begin
a1:=11;
a2:=13;
repeat
a1:=a2;
a2:=a2+2;
s:=a1+a2;
until s>=150;
writeln(a1,'+',a2,'=',s);
<span>end.
Результат работы программы:
75+77=152
Если нужно найти сумму 11+13+15+ ..., по ка не получится >=150, то это можно сделать так:
var a,s: integer;
begin
a:=11;
s:=0;
repeat
write(a,'+');
s:=s+a;
a:=a+2;
until s>=150;
writeln('=',s);
<span>end.
Результат:
11+13+15+17+19+21+23+25+27+=171</span></span><span><span>
</span></span>
а с начало круг потом отметка в нем дальше вытянуть и повернуть
Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
Размер массива не указан, поэтому в программе считаю его 100. Легко переделать под себя.
<h3>Код (Pascal)</h3>
var
a: array[1..100] of integer;
i, cnt: integer;
begin
for i := 1 to 100 do
a[i] := random(1001) + 1000;
for i := 1 to 100 do
if (a[i] div 10) mod 2 = 0 then cnt := cnt + 1;
writeln(cnt);
end.
--------------------------------------------------
Файл с решением прикреплён.
Часть имени файла, которая обозначает тип файла: расширение