Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.
40*60=2400 символов на одной странице
2400*25=60000 байт(ТК 1 байт равен одному символу).думай сам правильно или нет но она странная
#include<iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
int A, B = 0;
cout <<"Введите натуральное число: ", cin >> A;
while(A > 0)
{
if (A % 10 != 1 && A % 10 != 5)
{
B = B*10 + (A % 10);
}
A = A / 10;
}
while(B > 0)
{
A = A*10 + (B % 10);
B = B / 10;
}
cout << A;
return 0;
}
Вот если бы этот код был написан русским языком, тебе не пришлось бы даже задание сюда выкладывать, сразу бы всё понял.
1) 6.
2) 2.
3) -4.
4) 12.
program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.