Решите. Нужны пояснения и вычисления, а не ответы.
Итоговая контрольная работа по Информатике по программе 9 класса
3 вариант
1. Определите значение переменной a после выполнения данношо алгоритма:
a := 7
с := 3
с := 3 + a * с
a := с / 3 * a

2. Определите, что будет напечатано в результате работы следующей программы.
Var s, k: integer;
Begin
s := 100;
for k := 1 to 9 do
s := s - 5;
write (s);
End.

3. В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ» с первого по 15 ноября. (Work[1] − число заказов, принятых 1 ноября, Work[2] − 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следую-щей программы.
Var k, m: integer;
Work: array[1..15] of integer;
Begin
Work[1] := 5; Work[2] := 4;
Work[3] := 5; Work[4] := 7;
Work[5] := 6; Work[6] := 12;
Work[7] := 7; Work[8] := 3;
Work[9] := 9; Work[10] := 7;
Work[11] := 0; Work[12] := 9;
Work[13] := 1; Work[14] := 0;
Work[15] := 8;
m := 0;
For k := 1 to 15 Do
If Work[k] < 7 Then
Begin
m := m + 1;
End;
Writeln(m);
End.
4. Сформулируйте условие задачи (что делает программа?)
var n, s, k, g: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(g);
if (g mod 10 = 3) then s:=s+g;
end;
writeln(s);
end.

пуля14    3   14.05.2020 16:29    2