Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
5
type Arr=array [1..100] of byte; function ar(x:integer;n:real):Arr; var a:arr; i,s:integer; st: string; begin str(n, st); for i:=1 to x do val(st[i],a[i],s); ar:=a; end; function pr(x:integer;a:Arr):boolean; var i,k : byte; begin for i:=1 to x-1 do if a[i+1]<>a[i] then k:=k+1; pr:=(k<2); end; function kol(a:real):integer; var s:string; i,n:Integer; begin str(a, s); n := 0; for i:=1 to Length(s) do begin if (s[i]>='0')and(s[i]<='9') then inc(n); end; kol:=n; end; var x,k:integer; n,z:real; a:Arr; begin write('Введите n:'); readln(n); k:=2; repeat z:=n*k; k:=k+1; x:=kol(z); a:=ar(x,z); until ((pr(x,a)) or (x>49)) and (x>1) ; if x<50 then write(z) else write(0); end.
run
|
edit
|
history
|
help
0
Promedio con aprobación
Naloga 8: 10.9.2008
1
факторизация 2019
Cek dua pangkat
janja - naloga 1 - 11.7.2013
basketball_player_training
practica 3 ejercicio 2
practica 7 ejercicio 9
practica 7 ejercicio 2