Var a,s:integer;
begin
a:=3000
while a<5000 do begin
a:=a+(a*0,2);
s:=s+1;
end;
print(s);
end.
Pascal
const n = 20;
var
a,b,min : real;
m : array [1..n] of real;
i : integer;
begin
// формирова массива не пишу
readln (a,b);
min := b;
for i := 1 to n do
if (m[i]<min) and (m[i] >=a ) and (m[i] <=b)
then
min := m[i];
writeln (min:3:2);
<span>end.
Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].</span>
Цикл с параметром <span>используется, если известно начальное значение переменной, конечное значение и шаг ее изменения. цикл с параметром организует выполнение одного или нескольких операторов заданное, заранее известное, число раз</span>
Код в приложении.
При вставке на сайт форматирование текста исчезает.
Itranslateтакая программка Где вы можете переводить слова