Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
nomer2
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 3 <> 0) do a := a + 1; while (b mod 3 <> 0) do b := b - 1; p := b div 3 - a div 3 + 1; pkol := (a + b) * p div 2; writeln(pkol) end.
run
|
edit
|
history
|
help
0
Régua Para tanque cilindrico horizontal
Project Euler 17 : Number letter count (1000)
lecturas
рекурсия двух функций
Pasha
C:\Users\skava\Documents\Паскаль
practica 7 ejercicio 6
cond basico 1
Светофор-графика
buscar_numero_V2_divisible_5