Найти площадь кольца, внутренний радиус которого равен 20, а внешний -заданному числу r (r > 20 паскал

Var   r,s:real;begin  writeln('r=?, r>20 ');  readln(r);  s:=3.14159265359*(r*r-400.0);   writeln('s=', s);end.

Но проверку r>20 не делал, просто попросил словами.

Представлю 3 программы два с массивом и один без массива

1)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

 end;

  for i:=1 to n do  begin

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

2)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

3)var a,i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

if n<=10 then begin

 for i:=1 to n do  begin

     writeln('введите оценку за экзамен');

   readln(a);

    if a=5 then k5:=k5+1;

    if a=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end;

 end.

ответ:1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

uses crt;

var

i,n,k:integer;

a:array[1..100] of integer;

begin

writeln('введите числа последовательности. Окончанием ввода будет число 0');

i:=0;

n:=0;

repeat

i:=i+1;

n:=n+1;

read(a[i]);

write(' ');

until (a[i]=0) or (i>1000);

writeln;

k:=0;

writeln('Последовательность:');

for i:=1 to n-1 do

begin

write('a[',i,']=',a[i],' ');

if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then

k:=k+1;

end;

writeln('кол-во целых чётных чисел кратных 7 - ',k);

end.

Второй вариант : 1

2

3

4

5

6

7

8

9

10

11

12

13

14

uses crt;

var k,n: integer;

begin

write('vvedite chislo ');

readln(n);

if (n mod 7=0) and (n mod 2=0) then inc(k);

while n<>0 do

     begin

     write('vvedite chislo ');

     readln(n);

     if (n mod 7=0) and (n mod 2=0) then inc(k);

     end;

writeln(k-1);

end.

3 ВАРИАНТ :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

const

 lim1=30000;

 lim2=1000;

var

 a,kol,res:integer;

begin

 kol:=0;

 res:=0;

 repeat

   repeat

     readln(a);

     if abs(a)>lim1 then

       writeln('Oshibka vvoda. |a|<=',lim1);

   until abs(a)<=lim1;

   if a<>0 then

     begin

       inc(kol);

       if (a mod 2=0) and (a mod 7=0) then

         inc(res);

     end;

 until (a=0) or (kol=lim2);

 write(res);

end.