Input A,B
if a>b then print a-b else print a+b
end
Sum = 80.
umn = 1584.
Результат в "PascalABCNET" смотри во вложении.
1)циклы с условием
2)у цикла " повторить n раз" чётко заданное кол-во раз,а у цикл <span>" пока"
будет работать пока будет выполнятся условие
3)нужны,цикл - это и есть повтор каких-либо действий,пока не выполнится условие.
</span>
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
В параллелограмме указан ввод числа в переменную А, т.е. А будет равно 25;
Далее присваиваем значение переменным Х=1 и S=0;
Проверяем/сравниваем (обычно это условный оператор if).
У нас действительно S меньше или равно А, т.к. 0<25;
Выполняем блок действий Х=Х*4 (т.е. Х=4); S=S+X (т.е. S=4);
Опять проверяем/сравниваем 4<25, опять выполняем блок действий.
X=4*4=16 (т.к. старое значение уже было 4 и оно хранится в памяти)
S=4+16=20 (тоже что и с иксом);
Опять проверяем 20<25. Опять выполняем блок действий:
X=16*4=64
S=20+64=84
Проверяем :-) (надоело уже) 84<20????? Нет больше. Идем по ветке нет, т.е. выводим S.
На экране отобразиться число 84.
