Следующие вопросы: 1) Что такое WWW?
2) Кто разработчик первого компьютера?
3) Когда отмечают Всемирный день информации?
4) Кто такой К.Э.Циалковский? Годы его жизни. Место работы.
5) Дата первых Олимпийских игр.
6) Микенская культура
7) Когда была Троянская война?
8) Укажите время утверждения григорианского календаря.
9) Каков диаметр атома?
10) Укажите смертельный уровень звука.
11) Какова температура кипения железа?
12) Какова температура плавления ртути?
13) Укажите скорость обращения Луны вокруг Земли?
14) Какова масса Земли?
15) Какая гора в России является самой высокой?
16) Укажите годы правления Ивана I.
17) Укажите годы правления Екатерины I.
18) Укажите годы правления Ивана IV.
19) Укажите годы правления Хрущева Н.С.
20) В каком году был изобретен первый деревянный велосипед?
Компьюторы везде! Она почти у каждого человека дома! Они появились где-то в 80-х! И также они выполняют и хорошую роботу! К примеру когда надо сделать Домашнее задание,можно зайти в интернет и посмотреть,Ну если не понятно,И так-же если скучно,можно зайти в интернет и посмотреть видео. Они очень классные. Но бывают из-за них проблемы,пожары,и также компьюторы портят здоровье! Будь осторожен! Компьютеры вокруг нас!
Вот я придумал сам (Ошибки исправишь)
Program zadacha1;
uses crt;
const N=5; //размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Прямой вывод');
For i:=1 to n do
writeln(m[i]);
Writeln('Обратный вывод');
For i:=1 to n do
writeln(m[n+1-i]);
End.
Program zadacha2;
uses crt;
const N=5; // размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Вывод');
For i:=1 to n do
if i mod 2 = 0 then writeln(m[i]);
End.
Program zadacha3;
uses crt;
const N=5; // размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Вывод');
For i:=1 to n do
if (n+1-i) mod 2 <> 0 then writeln(m[n+1-i]);
End.