Первая задача:
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
v - это обозначение союза "и"
^ - это обозначение союза "или"
Первая скобка: «икс и меньше пяти, и меньше трёх». Значения, которые будут удовлетворять данному условию, начинаются с двойки и меньше. Вторая скобка: «икс и меньше двух, и меньше одного». То есть значения, которые будут удовлетворять условию, - это от нуля и меньше (если брать целые числа).
Скобки объединены знаком "или". Значит, нас устроят числа, которые или меньше двойки, или меньше единицы. Единственное число, которое сюда подходит - 1.
1
Объяснение:
V - Логическое "или" (выражение равно 0 только при (0 V 0), иначе равно 1)
& - Логическое "и" (Выражение равно 1 только при (1 & 1) );
((1 и 0) или 1) и (1 или А)
(0 или 1) и (1 или А)
1 и (1 или А)
"А" принимает два значения:
Если А = 0 то 1 и (1 или 0) = 1 и 1 = 1
Если А = 1 то 1 и (1 или 1) = 1 и 1 = 1