Question

Срочно!!! найти сумму двух первых цифр заданного четырёхзначного числа если оно кратно 5

Answer 1

program krat5;
var
n: integer;
begin
write('число: ');
readln(n);
if n mod 5 = 0 then
writeln( (n div 1000) + (n mod 1000 div 100) )
else
writeln('не кратно 5');
end.

Answer 2

Указывать заголовок программы (program krat5;) было обязательно только в версии, которую изначально описал Н.Вирт - в этом заголовке еще нужно было перечислять файлы, так что полностью его писали так: program krat5(input,output); - это было связано с реализацией паскаля для машин серии CDC 6000.

Answer 3

Но уже в ТурбоПаскаль заголовок программы стал необязательным и во всех паскалях рассматривается как разновидность комментария.

Answer 4

Тем не менее, многие школьные учителя продолжают пытаться требовать от учеников писать этот заголовок, придавая ему некий сакральный смысл, объяснить которого они не могут (когда программу пишут и запускают без этого заголовка, и "все работает")