Бағдарламалау | 98 қаралды
98 қаралды

Информатика паскаль есептерін кім шығар алады? Ана сайттарда есеп шыгару мазмуны бап!

1 жауап

Program Problem_A;
var a:longint;
t:text;
p:string;
Begin
assign(t,'standart_input.txt');
reset(t);
read(t,a);
close(t);

if a mod 11 == 0 then p:= "YES" else p:= "NO";

assign (t,'standart_output.txt');
rewrite(t);
write(t,p);
close(t);
End.
Жақсы Жауап
118,316 сұрақ
305,106 жауап
153,297 пікір
67,445 қолданушы