Пояснения: делала с помощью цикла (можно было написать и шесть раз writeln, но так удобнее). Переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). Ещё хочу отметить, что имя вводится по-английски и нельзя терять апострофы ( ' ).

2. program sum;

var sum:integer;

m:array[1..4] of integer;

i:integer;

begin

m[1]:=6

for i:=2 to 4 do begin

m[i]:=m[i-1]+1;

end;

sum:=m[1];

for i:=2 to 4 do begin

sum:=sum+m[i];

end;

writeln(sum);

end.

Пояснения: можно было делать и по-другому, но так тоже верно. Тут использовалось два цикла и массив. А блок-схему сами сделайте)))

3. program n!;

var n:real;

c:integer;

m:array[1..n] of integer;

begin

readln(n)

m[1]:=1;

for i:=2 to n do begin

m[i]:=m[i-1]+1;

end;

c:=m[1]

for i:=1 to n do begin

c:=c*m[i];

end;

writeln('n!',c);

end.

Если что не понятно, пишите, объясню

0 0

4 года назад

Что может быть источником тактильной информации

Сергей дорн

<em>Любой предмет, который ты берешь в руки</em>

0 0

3 года назад

А) Какую строку будет занимать запись, содержащая сведения о ноутбуке Asus F70SL, после сортировки данных по возрастанию........

Iriskas [2.8K]

А) 2
б) 4
в) 3
пфвпып
ывп
ыв
рп

0 0

4 года назад

S:=0; For I:=1 to 2 do S:=S+I; Writeln(s); S=________ Тело цикла________

S:=0; For I:=1 to 2 do S:=S+I; Writeln(s); S= Тело цикла