0 дауыс
1.5k көрілді

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

1 жауап

+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.
...