Program t; varn, x, i, s, k:integer; a:array [0..20] of integer; {20 =это максимальное количество домов .Вместо 20 поставь любое число} begin write('Введите количество домов на улице : '); read(n); for i:=1 to n do begin write('Введите количество жителей в ', i, ' -м доме : '); read(a[i]); end; for i:=1 to n do if i mod 2=0 then s:=a[i]+s; {Считаем жителей правых} for i:=1 to n do if i mod 2=1 then k:=a[i]+k;{Считаем жителей левых} if s>k then write('Разница между домами ', k-s ); if s<k then write('Разница между домами ', s-k ); end.
Введите количество домов на улице : 3 Введите количество жителей в 1 -м доме : 3 Введите количество жителей в 2 -м доме : 1 Введите количество жителей в 3 -м доме : 4 Разница между домами -6
Писал на Версии 3.3 Скобки это комментарии,их можно убрать
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 1
1. Алгоритм, в котором команда или серия команд повторяется, называется
А) циклическим;
2. Укажите процесс, который демонстрирует работу циклического алгоритма:
A) движение часовой стрелки;
3. Какой цикл называют циклом с предусловием?
B) While;
5. Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле While?
C) i<=125.
6. Сколько раз будет выполняться цикл For i:=7 to 12 do…;
B) 6 раз;
7. Сколько раз исполнится цикл:
i:=4;
while i<10 do i:=i+3;
A) 2 раза;
8. Сколько раз исполнится следующий цикл:
i:=21;
Repeat
i:=i-5
Until i<21;
A) 1
9. Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=7 to 9 do
sum:=sum+i;
B) 24;.
10 . Чему равна переменная с после выполнения алгоритма:
а:=2
b:=3
а:=а*b=6
b:=a+b=9
c:=3-2*a+b=0
c:=c-b=-9
C) -9
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 2
1.Алгоритм, в котором команда или серия команд повторяется называется
A) циклическим;
2.Укажите процесс, который демонстрирует работу циклического алгоритма:
C) движение Земли вокруг своей оси.
3.Какой цикл называют циклом с постусловием?
A) Repeat;
5.Требуется подсчитать сумму натуральных чисел от 2 до 22. Какое условие нужно использовать в цикле While?
A) i<23;
6.Сколько раз будет выполняться цикл For i:=4 to 8 do…;
A)5 раз;
7.Сколько раз исполнится цикл:
i:=6;
while i<18 do i:=i+3;
C)4 раза.
8. Сколько раз исполнится следующий цикл:
i:=12;
Repeat
i:=i-2
Until i<4;
B)5;
9.Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=5 to 8 do
sum:=sum+i;
C)26.
10. Чему равна переменная с после выполнения алгоритма:
а:=4
b:=1
b:=b-a=-3
b:=b*a=-12
a:=a-2*b=28
c:=a+b=16
B) 16