Первая задача:
var digs:String;
sum, sr:Real;
i:Integer;
begin
writeln('Введите 5 чисел через пробел');
readln(digs);
digs := digs.Replace(' ', '');
sum := 0;
for i := 1 to 5 do
sum := sum + strToInt(digs[i]);
sr := sum / 5;
writeln('Сумма: ' + sum);
writeln('Сред. арифметическое: ' + sr);
end.
Ввод:
1 2 3 4 5
Вывод:
Сумма: 15
Сред. арифметическое: 3
Вторая задача:
var i:Integer;
begin
for i := 0 to 10 do
writeln(i + '^3=' + i**3);
end.
Вывод:
0^3=0
1^3=1
2^3=8
3^3=27
4^3=64
5^3=125
6^3=216
7^3=343
8^3=512
9^3=729
10^3=1000
Intel Core i3-9100F 3.6–4.2 ГГц x4 - процессор 9 поколения от Intel, частота 3.6 - 4.2 ГГц, 4 ядра
8 ГБ DDR4 2666 МГц (до 32 ГБ) - оперативная память DDR4, объём 8 ГБ, частота 2666 МГц
(32 это скорее всего, что на материнке 4 слота под эту память)
1000 ГБ, 7200 об./мин + SSD 240 ГБ; - HHD на почти 1 ТБ + SSD на 240 ГБ
NVIDIA GeForce GT 710 1 ГБ DDR5 - видеокарта GT 710, объём видеопамяти 1 Гбайт, тип памяти - DDR5
Вот последнее как-то странно, вроде это про материнскую плату, но почему-то не указана модель.
GLAN - тип сетевого адаптера.
2 + 2 USB 2.0 - разъемы USB 2.0
2 + 2 USB 3.0 - разъемы USB 3.0
2 PS/2 - разъем, чтоб подключать клаву, мышку, но сейчас уже редко где можем увидеть его.(для устройств с 6-ти контактным разъёмом)
HDMI, DVI, VGA - разъемы для подключения устройств вывода по определенном стандарту.
Чего же тут не хватает?
Клавиатура, мышь, монитор, наушники, микрофон, веб-камера (всё зависит от потребностей пользователя, не всем ведь нужен микрофон тот же на ПК)
Во внутрь неплохо бы кулер поставить, CD ROM (если он нужен), ну и конечно же, корпус не забываем))
3 раза
Объяснение:
X:=1;
While x<10 do
X:=x+3;
X:=4;
While x<10 do
X:=x+3;
X:=7;
While x<10 do
X:=x+3;
X:=10;