Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
nomer4
var a, b, c, l, f, h, j, x, z, p, ma, i, u, mb, pkol : int64; d, e, g : real; begin assign(input,'input.txt'); assign(output,'output.txt'); reset(input); rewrite(output); read(a, b); while (a mod 7 <> 0) do a := a + 1; while (b mod 7 <> 0) do b := b - 1; p := (b div 7) - (a div 7) + 1; while (a mod 1 <> 0) do a := a + 1; while (b mod 1 <> 0) do b := b - 1; i := (b div 1) - (a div 1) + 1; x := (a+b)*i div 7; pkol := (a + b) * p div 7; writeln(x-pkol) end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
NOT a String in Pascal
ruteo
C:\Users\skava\Documents\Паскаль
registro de alunos, calculo de média
test27
linear eq
basketball_player_training
homework
Why do not work?
Сумма пар чисел кратных и некратных 11
Please log in to post a comment.