1)А
2) С
3)А
4) А
Вот так вот
Первый кратный элемент заменяется на 0
const
n = 10;
var
a : array [1..n] of integer;
i,m : integer;
begin
for i := 1 to n do
a[i] := i;
m := 0;
i := 1;
while (m = 0)
and (i<=n) do
begin
if a[i] mod 3 = 0 then
begin
a[i] := 0;
m := 1;
end ;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);<span>
end. </span>
Var
a, b, c, summ, d, den:real;
beginwrite('Введите кол-во км начальные: ');readln(a);
write('Введите на сколько % увеличивается расстояние каждый день: ');readln(b);
write('Введите, до скольки КМ увеличивает расстояние в день лыжник: ');readln(c);
den:=0;
while a<c do begin d:=a/100*b; // узнаем, на сколько увеличивается растояние a:=a+d; den:=den+1; end; writeln(den);
<span>end.
Написал на Pascal. Вводить можно любые данные ( не только, которые вы дали)</span>