Решите,нужны не только ответы, но и объяснения.
1. Определите значение переменной a после выполнения данного алгоритма:
а := 0
b := 2
b := 2 + a + 4*b
a := b/2*a
2. Запишите значение переменной s, полученное в результате работы следующей программы.
Var s,k: integer;
Begin
s := 0;
for k := 6 to 12 do
s := s+10;
writeln(s);
End.
3. Школьница делала лабораторную работу по физике, в ходе которой измерила 10 раз силу тока и записала показания амперметра в таблицу Tok (Tok[1] — результат первого измерения, Tok[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Tok: array[1..10] of integer;
Begin
Tok[1] := 10; Tok[2] := 14;
Tok[3] := 15; Tok[4] := 4;
Tok[5] := 12; Tok[6] := 6;
Tok[7] := 3; Tok[8] := 5;
Tok[9] := 5; Tok[10] := 10;
m := 0;
For k := 1 to 10 Do
If Tok[k] > 6 Then
Begin
m := m + 2;
End;
Writeln(m);
End.
4. Сформулируйте условие задачи (что делает программа?)
var a, answer: integer;
begin
answer:=0;
readln(a);
while a<>0 do begin
if (a mod 4 = 0) and (a <1000) then
answer := answer + 1;
readln(a); end;
writeln(answer)
end.
