пояснения: делала с цикла (можно было написать и шесть раз 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.
если что не понятно, пишите, объясню
Ответ дал: Гость
a1=8;
a2=a1*10=80;
a3=a2-a1=72;
b1=a2/4=20;
b2=(b1-a1)/6=2;
ответ: a1=8; a2=80; a3=72; b1=20; b2=2
Ответ дал: Гость
var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 9)and(a< 99) thens: =s+a; until a=0; writeln(s); end.
Популярные вопросы