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

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

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,511 сұрақ
305,597 жауап
153,302 пікір
68,017 қолданушы