<em>Вот так)</em>
<em><form autocomplete="off">
</em>
<em> <input type="text" name="test" autocomplete="off">
</em>
<em></form></em>
Program bbb
var
N,k:integer;
begin
writeln('введите число N');
readln(N);
k=0;
for 1 to N do
begin;
if k mod 5=0 then
k:=k+1;
writeln(k);
end;
end. Попробуй так должно получится, если не получается добавь переменную i в разделе var и вставь сюда (for i=1 to N do...)
<span>Задание №1
</span>
var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
<span>end.
</span>
Задание №2
var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
<span>end.
</span>
Задание №3
var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
<span>end.
</span>
Задание №4
var a,b,c:integer;
<span>begin </span>
<span>writeln('Введите стороны a,b,c'); </span>
<span>read(a,b,c); </span>
<span>if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') </span>
<span>else writeln('Треугольник неравнобедренный'); </span>
<span>end.
</span>
Задание №5
var a,b,c:integer;
<span>begin </span>
<span>a:=0; </span>
<span>c:=0; </span>
<span>repeat </span>
<span>writeln('Введите число'); </span>
<span>read(b); </span>
<span>if b<0 then a:=a+1; </span>
<span>c:=c+1; </span>
<span>until c=3; </span>
<span>writeln('Количество отрицательных = ',a); </span>
<span>end.
</span>
Задание №6
var a,c:integer;
<span>b:real; </span>
<span>begin </span>
<span>writeln('Введите количество часов'); </span>
<span>read(a); </span>
<span>c:=a div 3; </span>
<span>b:=power(2, c); </span>
<span>writeln(b); </span>
<span>end.
</span>
Задание №7
const
<span>n=10; </span>
<span>var a:array [1..10] of integer; </span>
<span>i,k,s:integer; </span>
<span>begin </span>
<span>writeln('Введите k'); </span>
<span>read(k); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if a[i] mod k =0 then s:=s+a[i]; </span>
<span>end; </span>
<span>writeln(s); </span>
<span>end.</span>
В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
Итак. В данном алгоритме цикл повторится ровно 4 раза.
z=1; x=51;
1 итерация (i=0): z=(z+x/2)/2=(1+51/2)/2=13.25
2 итерация (i=1): z=(z+x/2)/2=(13.25+51/2)/2=19.375
3 итерация (i=2): z=(z+x/2)/2=22.4375
4 итерация (i=3): z=(z+x/2)/2=23.96875
При округлении до десятых результат будет округлен в большую сторону, а 23.9+0.1=24.
Ответ: 24