Алгоритм с заданным условием проверки и переменной n (n:= - команда присвоения значения переменной)
Program asd;
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
<span>END.</span>
Ответ:Program few2;
Uses crt;
Var a, b, y, min: integer;
Begin
ClrScr;
Writeln('y:= min+ 2* min+ b');
Write('Значение a: ');
Readln(a);
Write('Значение b: ');
Readln(b);
If a>b then
min:=a;
If a<b then
min:=b;
y:= min+ 2* min+ b;
Begin
If a=b then
Writeln('Невозможно найти значение...')
else
Begin
Writeln('min= ', min);
Writeln('y= ', min, '+ 2* ', min, '+ ', b);
Writeln('Y= ', y);
End;
End;
Readln;
End.
Объяснение:
Упаковка-зелёная
Марка "моя семья"
Вкус-яблочный
Цвет сока- зелёный, есть мякоть
:-)