var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);
end.
A div b -целочисленное деление a на b
a mod b -остаток от деления а на b
после подстановки вместо х числа 3 последовательно получаем = (3+2)*(1+3)/(2)=5*4/2=20/2=10 Ответ 1)
Const n=8;
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.
если нужно без массива, напишите
5a²-20a+20=5(a²-4a+4)=5(a-2)²
1 Задание ( Подробно разберу только в первом задании, второе решу на подобии, только без объяснений)
i:= 0 ; s:= 0 - значение переменных, которые нам даны по условию.
while i<2 do - алгоритм должен выполняться пока переменная i меньше 2, об этом нам говорит while, что в переводе означает "пока".
Begin - начало алгоритма
i:= i + 1 - переменной i присваивается значение i+1.
s:= s+ i * i - то же самое что и с переменной i, присваивание нового значения.
End: - конец алгоритма
Прочитав фрагмент программы, мы видим, что алгоритм выполняется до тех пор, пока значение переменной i меньше двух, то есть когда ее значение будет больше или равно двум алгоритм перестанет работать. Сам алгоритм выглядит, как i:= i + 1 ; s:= s+ i * i; Переменной i присваивается предыдущее значение i, сложенное с единицей, а переменной S присваивается значение S сложенное с переменной i, умноженной на саму себя. Исходя из этого найдем значение S, как задано в условии
1) i:= 0 + 1 = 1
s:= 0 + 1 * 1 = 1
2) i:= 1+1 = 2
s:= 1 + 2 * 2 = 5
Здесь мы видим, что значение переменной i стало равно двум. Заканчиваем цикл. Получаем ответ. Ответ : S = 5.
2 Задание.
Repeat - повторение алгоритма определенное кол-во раз
Until k<8 - алгоритм выполняется пока переменная k меньше 8.
k:=1; S:=0
1) S:= S + k = 0 + 1 = 1
k:= k + 2 = 1 + 2 = 3
2) S:= 1 + 3 = 4
k:= 3 + 2 = 5
3) S:= 4 + 5 = 9
k:= 5 + 2 = 7
4) S:= 9 + 7 = 16
k:= 7 + 2 = 9
Конец алгоритма. Ответ : S = 16.
