1) Определите значение переменной s после выполнения фрагмента программы:
s:=0
k:=0
нц пока s < 1024
s:=s+10
k:=k+1
кц s:=0;
k:=0;
while s < 1024 do begin
s:=s+10;
k:=k+1;
end;
2) Определите значение переменной s после выполнения фрагмента программы:
s:=0
нц для к от -3 до 5
s:=s+к
кц s:=0;
for k:=-3 to 5 do begin
s:=s+k;
end;
3) По каналу связи передается последовательность положительных целых чисел, все чис-ла не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение – наибольшее число из последовательности, которое делится на 10.
Напишите эффективную программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение, а также проверяет правильность контрольного значения. Программа должна напечатать отчет следующего вида:
Получено .. чисел
Полученное контрольное значение: ….
Вычисленное контрольное значение:…
Контроль пройден (или – контроль не пройден)