Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение:
1) текстовую, числовую, графическую, звуковую и видео.
2)графическая, звуковая и видео информации.
3)клавиатура нужна для того чтобы передовать информацию на комьпютер,а принтер для передачи информации из компьютера.
4) 1) функциональные клавиши (F1 - F12 на верхней части клавиатуры); 2) символьные (алфавитно-цифровые) клавиши (цифры, спец.
5)Для удобства. Допустим, человек делает на компьютере определённые расчёты, и для этого использует правую часть клавиатуры, где цифры для этого расположены куда удобнее. И рядом с ними установлен +, дабы не лезть к другому концу клавиатуры с целью написать его). А цифры над буквенной частью клавиатуры как раз больше нужны для их использования при написании текста. Согласитесь, если вам надо написать "У нас было 5 дней на это", вам будет удобнее написать 5, используя клавишу наверху клавиатуры, нежели справа, на её "калькуляторной" части
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
write ('Введите ',i,' элемент массива: ');
readln (a[i])
end;
writeln('Исходный массив: ',a);
for i:=1 to 10 do if a[i]<0 then a[i]:=abs(a[i]);
writeln('Преобразованный массив: ',a)
end.