Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
<span>n = int(input<span>())
</span>digs <span>= []
</span>while n > 0<span>:
</span> digs.append(n % 10<span>)
</span> n //= <span>10
</span>if digs[:len(digs) // 2] == digs[len(digs) // 2 + len(digs) % 2: ][::-1<span>]:
</span> print('YES'<span>)
</span>else<span>:
</span> print('NO'<span>)</span></span>
Начало
Вводим a=0
далее выполняется действие:
x=a*2=0*2=0
условие:
0<10 да, далее выполняется действие:
x=x-5=0-5=-5
вывод х=-5;
конец.
Также и с остальными:
начало
ввод а=2
х=2*2=4
4<10
х=4-5=-1
вывод х=-1;
Конец.
Начало
ввод а=4
х=4*2=8
8<10
х=8-5=3
вывод х=3
конец.
Начало
ввод а=6
х=6*2=12
12>10
х=12+6=18
вывод х=18
конец.
Начало
ввод а=8
х=8*2=16
16>10
х=16+6=22
вывод х=22
Конец.
на си(с++)
#include<iostream.h>
void main(){
int a;
int x;
cin>>x;//число на которое должно закончитьс
cin>>a;//число которое вводишь
int b,c,d;
b=a%1000;//остаток от деления на 1000
d=b%100;//остаток от остатка деления на 100
c=d%10;//само число
if (c==x) cout<<"Верно";else cout<<"Не верно";
}
если на паскале тольок вместо % ставите mod и вместо cout write
и в скобках а так в принципе все
Program primer;
Uses crt;
var i,n,ind: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-70;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=1 to n do
if a[i]<=0 then ind:=ind+1
else
begin
ind:=i;
writeln(ind); break;
end;
end.