program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.
Если я правильно понял, то вот:
Входы для информации:
- гнезда (разъёмы для перефирии)
- CD-DVD-привод
- Дискетки
- Сканирование через принтер
- Ввод с клавиатуры, клик мышкой на опр. знаках
- запись с микрофона
- из интернета
(ещё возможно: вход из спящего режима, вход в систему после включения компьютера (в этом случае информация загружается в оперативную память для запуска Windows))
Выходы:
- Гнёзда для перефирии
- печать
- в интернет
- монитор
Дизайн слайда – цветовые схемы предназначены для оформлення зовнішнього вигляд об'єкта, Яке надає цьом об'єкту індівідуальності та покращує его візуальне сприйняттів.
Дизайн слайда – шаблоны оформления предназначены для создание фона важный, интересный и творческий этап в создании презентаций
Больше не знаю(
1) Содержит вопрос, а не утверждение.
2) на самом деле это ВЫСКАЗЫВАНИЕ, оно несет информацию.
3) Непонятен смысл и назначение этого выражения.
4) Не несет информации (например, о том, зачем это делать)
5) Не несет информацию о том, зачем это делать
6) Не несет конкретной информации о теме.
7) Не несет информации о том, среди кого.
8) Это вопрос, а не утверждение.
Добил её)
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
var x, y, a, b: longint;
begin
var ax:=new List<integer>;
for var i:=10000 to 99999 do begin
x:=i;
while x > 0 do begin
y := x mod 10;
if y >2 then a := a + 1;
if y < 8 then b := b + 1;
x := x div 10;
end;
If (a=3) and (b=4) then begin ax.add(i); end;
a:=0; b:=0;
end;
Println('Минимальное x->',ax.min); Println('Максимальное x->',ax.max);
end.
Результат:
Минимальное x-> 10338
Максимальное x-> 97722