Я так понял, должен запуститься цикл и во время итерации при каждом проходе он должен выводить с новой строки то кол-во раз, сколько он выполнился.
var i: integer; {единственная переменная, которая нужна - счетчик}
begin
for i:=0 to 4 do {или нужное кол-во вместо 4}
writeln(i);
end.
Писал без отступов, но здесь и так пара строк. Программа полностью рабочая, но учтите, что счет ведется от 0 и цикл в примере повторится не 4, а 5 раз. На выходе будет:
0
1
2
3
4
Если хотите начинать с 1 - пожалуйста, достаточно сменить значение с 0 на 1.
Дана последовательность чисел 10, 20, 30...1000
<span>Составьте алгоритм и программу нахождения суммы чисел этой последовательности
ой не сюда</span>
1) верно
2) неверно, отсутствует тип элементов массива
3) неверно, кириллица в имени массива и другие ошибки
4) верно
В программе для каждого из трёх введённых слов подсчитывается количество одинаковых букв, стоящих рядом.
Значения переменных после выполнения приведенного фрагмента программы:
slovo='ИНФОРМАТИКА'
n=11 (длина последнего слова)
k=0
На экран будет выведено:
no
yes
no
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
const
n=11;
begin
var a:=ArrRandomReal(n,-5,12); a.Println; Writeln;
var m:=a.Average;
for var i:=0 to n-1 do begin
if (a[i]>=0) and (a[i]<m) then a[i]:=sqrt(a[i]);
Write(a[i],' ')
end
end.
<u>Пример</u>
11.405151498227 -0.0366445398128805 -2.21942756521489 2.21741229818082 9.61287940834317 6.65224883782316 6.537837190804 3.96376293383714 -4.11077116109001 1.47475347736606 2.43229730680226
11.405151498227 -0.0366445398128805 -2.21942756521489 1.48909781350347 9.61287940834317 6.65224883782316 6.537837190804 3.96376293383714 -4.11077116109001 1.21439428414583 1.55958241423859
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(15,-20,40); x.Println;
var y:=ArrRandom(15,10,60); y.Println;
Writeln(40*'-');
var i:=1;
var s:integer;
while i<15 do begin
if x[i]<y[i] then begin
s:=x[i]+y[i]; y[i]:=x[i]-y[i]; x[i]:=s
end
else
if x[i]>y[i] then begin
s:=x[i]+y[i]; x[i]:=x[i]-y[i]; y[i]:=s
end;
i+=2
end;
x.Println; y.Println
end.
<u>Пример</u>
25 3 19 8 7 10 33 -9 20 6 12 -5 -17 34 13
27 11 31 31 12 12 60 30 17 16 41 32 31 22 55
----------------------------------------
25 14 19 39 7 22 33 21 20 22 12 27 -17 12 13
27 -8 31 -23 12 -2 60 -39 17 -10 41 -37 31 56 55