Program zadacha;
uses crt;
var n, k: integer;
s: longint;
begin
clrscr;
write ('enter k: ');
readln (k);
s:=0;
for n:=k to 9999 do begin
if n mod k = 0 then
s:=s+n;
end;
writeln ('summa=', s);
readkey;
end.
(6*8)+(20:(4-2))=58
6*8=48
4-2=2 20:2=10
48+10=58
Основание системы счисления = 3:
120(3) = 1*3^2+2*3 = 9+6 = 15
110(3) = 1*3^2+1*3 = 9+3 = 12
1000(3) = 1*3^2 = 27
15+12=27
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите двухзначное натуральное число:');
if (n div 10).IsEven and (n mod 10).IsEven then Writeln('Да')
else Writeln('Нет')
end.
<u>Пример</u>
Введите двухзначное натуральное число: 28
Да