Var y,x,i,a,b,c,r,m,n,v: integer; begin for a: = 2 to 7 do if (a=2)or(a=3)or(a=5)or(a=7) then for b: = 2 to 7 do begin if (b=2)or(b=3)or(b=5)or(b=7) then for c: = 2 to 7 do if (c=2)or(c=3)or(c=5)or(c=7) then begin x: =a*10+b; y: =b*10+c ; r: =a+b+c; m: =2; while x mod m< > 0 do m: =m+1; if m=> x-1 then begin n: =2; while y mod n< > 0 do n: =n+1; if n> =y-1 then begin v: =2; while r mod v< > 0 do v: =v+1; writeln(a*100+b*10+c); end; end; end; end; end.

трехзначное число называется суперпростым если его цифры, сумма цифр, двухзначные числа из первой и второй, второй и третьей цифр - простые числа. но, цифра 1 - не простое число. сколько всего таких чисел и что это за числа. составьте программу решения

//1

 <script type="text/javascript">
   var ans=prompt('Name a vegetable that is green on the outside and  white on the inside. It starts with C.','answer');
   if(ans=='Cucumber')
         alert('Congratulations, answer is right!');
         else
        alert('Wrong answer');
   alert('Game over');
 </script>

//2
 <script type="text/javascript">
   var count=0;
   var ans=prompt('Name a vegetable that is green on the outside and  white on the inside. It starts with C.','answer');
   if(ans=='Cucumber')
         count=count+1;
   ans=prompt('Name a tiny, round green vegetable that grows in pods. It starts with P. Children like it.','answer');
   if(ans=='Peas')
         count=count+1;
   ans=prompt('What goes up when the rain comes down?','answer');
   if(ans=='Umbrella')
         count=count+1;
   ans=prompt('I am purple, yellow, red,/and green./The King cannot reach me and neither can the Queen./I show my colours after the rain,/And only when the sun comes out again.','answer');
   if(ans=='Rainbow')
         count=count+1;
   alert('Count of right answers:'+count);
   alert('Game over');
 </script>

//Pascal ABC.NET 3.1 сборка 1256

uses
 GraphABC;

 Var
 n:integer;

 procedure square(var n:integer);
begin
readln(n);
rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);
end;

procedure points(n:integer);
Var
 x,y,i:integer;
begin
i:=0;
while i<1000 do
 begin
  x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1); 
y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);
  setpixel(x,y,rgb(random(255),random(255),random(255)));
  inc(i);
 end;
end;

begin
randomize;
square(n);
points(n);
end.