Aid1 -Уровень АВыполните программу на ком-пьютере. Какие действия быливыполнены?в программе Scratch можновыбрать несколько костюмов, Обуясните причину.1 -11 сУровень вСоздайте в программе персонажи его анимацию, как на рисунках, ​

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
  if n<4 then Result:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
  Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
  if n<4 then res:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
  var k:=0;
  var prime:boolean;
  foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
  Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

var G,F:file of integer;

   i,j,n:integer;

   s:integer;

   c,c1,c2:integer;

begin

writeln;

write('Vvedite n:');

readln(n);

Assign(G,'C:\g.txt');

Assign(F,'C:\f.txt');

Rewrite(F);

for i:=1 to n do

begin

c1:=1;

c2:=1;

for j:=1 to i+1 do begin

if j<i+1 then c1:=c1*2;

c2:=c2*3;

end;

c:=c1+c2;

write(F,c);

end;

Close(F);

Reset(F);

Rewrite(G);

s:=0;

while not Eof(f) do

begin

read(F,c);

if c>0 then c:=c*(-1);

write(G,c);

s:=s+c;

end;

write(G,s);

close(F);

close(G);

reset(G);

writeln('Komponenty fajla j:');

while not Eof(G) do

begin

read(G,c);

write(c);

end;

readln;

end.

Приклад.Виведення таблиці значень функції у файл.

Програма:

program file_of_values;

var

х : Real;

k : Word;

out_file : Text; {тип Text відповідає файлу. що складається із рядків тексту}

function F(x: Real): Real;  

begin

F := x/d.O + x);  

end;

begin

Assign(out_file, 'c:\user\ivanov\table.dat');

Rewrite(out_file);

x := 0.0;

WriteLn(out_file, 'Таблиця значень функції F(x) = x/(l + x)');

WriteLn(out_file);

WriteLn(out_file, 'x':9, 'F(x)':19);

WriteLn(out_file);

for k := 0 to 50 do  

begin

WriteLn(out_file, x:9:3, F(x):19:9);

x := x + 0.1:

if k mod 10 = 9 then WriteLn(out_file);  

end;

Close(out_file);  

end.