"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"
Program day;
var
dow: integer;
label main;
begin
write('введите число: ');
main:
readln(dow);
case dow of
1, 2, 3, 4, 5: writeln('Рабочий день');
6: writeln('Суббота');
7: writeln('Воскресенье');
else:
begin
writeln('Не день недели! Повторите ввод.');
goto main;
end;
end;
readln;
end.
А) имя массива "а"
Б) в нем 6 элементов
В) тип элементов массива - целые числа (Integer)
Г) данные в массив введены в виде констант (Const)
Д) третья строка программы, после знака "=": (1, 7, 3, 6, 0, 10)
Е) программа подсчитывает сумму элементов массива, делит эту сумму на 6 и результат выводит на экран
K S
12 0+13=13
13 13+13=26
14 26+13=39
15 39+13=52
Ответ 52