Контрольная работа по программированию на языке Pascal

А) Var s,k: integer;

Begin

s := 0;

for k := 3 to 8 do

s := s + 9;

writeln(s);

End.

Б) Var k, i: integer;

Begin

k := 4;

For i := 1 to 3 do

k := i + 2*k;

Writeln(k);

End.

В) var n, s: integer;

begin

n : = 30; s : = 25;

while s

s : = s + 40;

n : = n + 10

end; write(n);end.

А) Var k, m: integer;

Dat: array[1...10] of integer;

Begin

Dat[1] := 2; Dat[2] := 5;

Dat[3] := 7; Dat[4] := 5;

Dat[5] := 4; Dat[6] := 2;

Dat[7] := 0; Dat[8] := 2;

Dat[9] := 4; Dat[10] := 5;

m := 0;

for k := 1 to 10 do

if Dat[k] 3 then

begin

m := m+1

end;

writeln(m);

End.

Б) Var k, m, month: integer;

Dat: array[1...12] of integer;

Begin

Dat[1] := 5; Dat[2] := 5; Dat[3] := 6;

Dat[4] := 8; Dat[5] := 4;Dat[6] := 5;

Dat[7] := 4; Dat[8] := 7;Dat[9] := 4;

Dat[10] := 4;Dat[11] := 8;Dat[12] := 7;

month: = 1; m := Dat[1];

for k := 2 to 12 do

if Dat[k]

1. По данной блок-схеме ставить программу вычисления b.

1. 5. По данному условию ставить программу вычисления y.

2. Заполнить случайным образом массив из 20 чисел элементами от 0 до 100, найти количество чисел кратных 15.

7.Первый велосипедист проехал a километров и b метров. Второй велосипедист проехал за это же время с километров и d метров. На сколько метров больше проехал второй велосипедист? Выведите результат с поясняющей надписью в центр экрана.

А) Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 12; Dat[2] := 15;

Dat[3] := 17; Dat[4] := 15;

Dat[5] := 14; Dat[6] := 12;

Dat[7] := 10; Dat[8] := 13;

Dat[9] := 14; Dat[10] := 15;

m := 0;

for k := 1 to 10 do

if Dat[k] = 15 then

begin

m := m+1;

end;

writeln(m);

End.

Б) Var k, m, day: integer;

Dat: array[1...10] of integer;

Begin

Dat[1] := 2; Dat[2] := 2;Dat[3] := 3;

Dat[4] := 3; Dat[5] := 4; Dat[6] := 4;

Dat[7] := 5; Dat[8] := 5; Dat[9] := 6;

Dat[10] := 6;

day:=1; m := Dat[1];

for k := 2 to 10 do

if Dat[k] = m then

begin

m:= Dat[k];

day := k;

end;

write(day);

End.

1. По данной блок-схеме ставить программу вычисления b.

1. 5. По данному условию ставить программу вычисления y.

2. Заполнить случайным образом массив из 30 чисел элементами от 0 до 500, найти количество чисел кратных 20.

7. Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно. Результат должен быть расположен в центре экрана с поясняющими надписями.