Какая задача решается с помощью следующего алгоритма?
5-9 класс
|
Сколько неотрицательных чисел, среди а и б
Другие вопросы из категории
Как сделать? я конечно предполагаю, но думаю, что я думаю не верно :D
1.Языки,используемые для общения людей,
5.Целенаправленный процесс изменения содержания или формы представления информации.
9.Код содержащий в кодовых комбинациях одинаковое число символов.
Читайте также
C:(A+B)*(B-A)
writeln(C)
end.
Задача связана с программой паскаль.
Повтори 2 раз
Команда1 Сместиться на (3, 2) Сместиться на (2, 1)
Конец
Сместиться на (–6, –4)
После выполнения этого алгоритма Чертёжник вернулся в исходную точку.
Какую команду надо поставить вместо команды Команда1?
1)
Сместиться на (–2, –1)
2)
Сместиться на (1, 1)
3)
Сместиться на (–4, –2)
4)
Сместиться на (2, 1)
2)Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 4 раз
Команда1 Сместиться на (3, 3) Сместиться на (1, –2)
Конец
Сместиться на (–8, 12)
После выполнения этого алгоритма Чертёжник вернулся в исходную точку.
Какую команду надо поставить вместо команды Команда1?
1)
Сместиться на (–2, –4)
2)
Сместиться на (4, –13)
3)
Сместиться на (2, 4)
4)
Сместиться на (–8, –16)
p>
writeln(C)
end.
этот алгоритм?».
Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;
Begin
Write('Введите количество элементов: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); Readln(A[I]);
End; WriteLn;
For I := 1 To N - 1 Do
Begin
K := I;
For J := I + 1 To N Do If A[J] <= A[K] Then K := J;
Pr := A[I]; A[I] := A[K]; A[K] := Pr;
End;
For I := 1 To N Do Write(A[I], ' ');
End.
Program Test
var A , B, C : integer;
begin
readln (A, B);
C :=(A+B)*(B-A);
writeln (C)
end.