//PascalABC.Net;
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.
Из города А в город К насчитала 13 различных путей.
Ответ: 13
Ответ:
Объяснение:
Так как 256 цветов то 8 бит на пиксель. Всего 800 пикселей следовательно 800*8=1600 бит. 1 байт =8 битам следовательно размер рисунка равен 1600/8=800 байт
var a:integer;
begin
readln (a);
writeln('Цифра десятков: ',abs(a) div 10);
writeln('Цифра единиц: ',abs(a) mod 10);
end.
Пример:
25
Цифра десятков: 2
Цифра единиц: 5