Точно должно работать для PascalABC.Net (версия 3.2, сборка 1341). program Task; var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными begin read(N); for i:=1 to N do begin if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5) end; while (N<>0) do begin sum:=sum+N mod 10; N:=N div 10; end; writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol); writeln('Сумма цифр числа N равна', sum); end.
var
A, B, K, R : longint;
begin
readln(A, B);
if (A mod 2 = 1) and (B mod 2 = 1) then
writeln('-1');
if (A mod 2 = 0) and (B mod 2 = 0) and
((A div 2 <> B) or (B div 2 <> A)) then
writeln('-1');
if (A mod 2 = 0) and (B mod 2 = 0) and
((A div 2 = B) or (B div 2 = A)) then
if A > B then
writeln(B, '0')
else
writeln('0', A);
if (A mod 2 = 1) and (B mod 2 = A) then begin
A := A-1;
B := B-2;
if (A div 2 = B) or (B div 2 = A) then
if A > B then
writeln(B, '0')
else
writeln('0', A);
end;
if (B mod 2 = 1) and (A mod 2 = B) then begin
B := B-1;
A := A-2;
if (B div 2 = A) or (A div 2 = B) then
if B > A then
writeln(B, '0')
else
writeln('0', A)
end;
end.
На Всё что могу.
program Task;
var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными
begin
read(N);
for i:=1 to N do
begin
if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5)
end;
while (N<>0) do
begin
sum:=sum+N mod 10;
N:=N div 10;
end;
writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);
writeln('Сумма цифр числа N равна', sum);
end.
Пиши, если что-то не работает или не понятно :)