Насколько знаю, они все относятся к манипуляторам
Program NoName;
Var i,n,sum: integer;
a:array[1..9999] of integer;
Begin
sum:=0;
Write ("Количество элементов массива = ");
Read (n);
For i:=1 to n do
Begin
Writeln(a[i]);
End;
Writeln ;
For i:=1 to n do
Begin
If a[i] < 20 then
a[i] := a[i] * 3;
sum:=sum + a[i];
Writeln(a[i]);
End;
Write (sum);
End.
Function HOD(a: integer; b: integer): integer;
// Нахождение НОД
var
i: integer;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
HOD := a
end;
var
A, B, C: integer;
begin
Write('Введите через пробел значения A,B,C: '); Readln(A, B, C);
Writeln('НОД(A,B,C)=', HOD(HOD(A, B), C))
end.
<u>Тестовое решение:</u>
Введите через пробел значения A,B,C: 1532 628 388
НОД(A,B,C)=4
Var
i,n,a:integer;
Begin
Writeln('Введите число');
Readln(n);
for i:= 1 to n do
a:=a+i;
Writeln('Квадрат суммы этих чисел равен ',sqr(a));
End.
1.Налил в чайник воды.
2.Поставил на газ и подождал пока он закипит.
3.Насыпал в заварник заварку.
4.Залил кипятком.
5.Подождал 10-15 мин.
(я так писала, только не про чай)