ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var
i,n,k:integer;
a:array[1..100] of integer;
begin
writeln('введите числа последовательности. Окончанием ввода будет число 0');
i:=0;
n:=0;
repeat
i:=i+1;
n:=n+1;
read(a[i]);
write(' ');
until (a[i]=0) or (i>1000);
writeln;
k:=0;
writeln('Последовательность:');
for i:=1 to n-1 do
begin
write('a[',i,']=',a[i],' ');
if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then
k:=k+1;
end;
writeln('кол-во целых чётных чисел кратных 7 - ',k);
end.
Второй вариант : 1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var k,n: integer;
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
while n<>0 do
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
end;
writeln(k-1);
end.
3 ВАРИАНТ :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
lim1=30000;
lim2=1000;
var
a,kol,res:integer;
begin
kol:=0;
res:=0;
repeat
repeat
readln(a);
if abs(a)>lim1 then
writeln('Oshibka vvoda. |a|<=',lim1);
until abs(a)<=lim1;
if a<>0 then
begin
inc(kol);
if (a mod 2=0) and (a mod 7=0) then
inc(res);
end;
until (a=0) or (kol=lim2);
write(res);
end.
1) От 10 до 14
2) random(1, 10); random(-10,10); random(50,100);
3)
var a:array[1..100] of integer;
i, p, o:integer;
begin
p := 0;
o := 0;
for i := 1 to 100 do
a[i] := random(-20, 20);
writeln(a);
for i := 1 to 100 do begin
if a[i] >= 0 then p := p + 1
else o := o + 1;
end;
writeln('Положительных: ' + p);
writeln('Отрицательных: ' + o);
end.
4)
var a:array[1..20] of integer;
b:array[1..20] of integer;
i:integer;
begin
randomize;
for i := 1 to 20 do
begin
a[i] := random(1, 5);
b[i] := random(1, 5);
end;
for i := 1 to 20 do begin
if a[i] = b[i] then begin
writeln('Номер: ' + i);
writeln('Значение: ' + a[i]);
end;
end;
end.
44
Объяснение:
s = - 1
нц для x от 10 до -3 шаг -2
Действия в цикле:
1) s = s - x
2) s = s + 1
Вывод s * x
x = 10 s = -1
Действия в цикле:
1) s = s - x = -1 - 10 = -11
2) s = s + 1 = -11 + 1 = -10
x = 8 s = -10
Действия в цикле:
1) s = s - x = -10 - 8 = -18
2) s = s + 1 = -18 + 1 = -17
x = 6 s = -17
Действия в цикле:
1) s = s - x = -17 - 6 = -23
2) s = s + 1 = -23 + 1 = -22
x = 4 s = -22
Действия в цикле:
1) s = s - x = -22 - 4 = -26
2) s = s + 1 = -26 + 1 = -25
x = 2 s = -25
Действия в цикле:
1) s = s - x = -25 - 2 = -27
2) s = s + 1 = -27 + 1 = -26
x = 0 s = -26
Действия в цикле:
1) s = s - x = -26 - 0 = -26
2) s = s + 1 = -26 + 1 = -25
x = -2 s = -25
Действия в цикле:
1) s = s - x = -25 - (-2) = -25 + 2 = -23
2) s = s + 1 = -23 + 1 = -22
Цикл закончился
x = -2 s = -22
s * x = -2 * -22 = 44
Вывод 44