Question

Разобрать программу по строкам. С клавиатуры вводится число 519. В ответе написать результат выполнения программы (что будет выведено на экран)
 
 
program a10;
var k, r, d: integer;
begin
read(k);
if k mod 3=0 then
begin
d:=d+7;
k:=k-d*2;
writeln(k:5, d:5);
end
else
writeln(d:5);
d:=d+4;
writeln(k:5, r:5);
readln
end.

Answer 1

Ответ:

 505    7                                                                                                                            

 505    0

Объяснение:

519 mod 3 = 0 значит:

d=7

k=519-7*2=505

вывод:  505    7 (на вывод каждого значения отводится 5 символов)

else не выполняется

r не изменялся и в принципе выведет 0

вывод:  505    0 (на вывод каждого значения отводится 5 символов)