если правильно понял
program k,i,r1,R2:integer;
s:array[1..10] of integer;
begin;
k:=0;
readln(r1);
readln(r2);
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>r1) and (a<r2) then inc(k)
write(k);
в первом случае 5, во втором 8.
Если это Паскаль, то вот:
program prog1;
var h, a: integer;
P, b, S: real;
begin
write('Высота=');
readln(h);
write('Основание=');
readln(a);
S:=h*a/2;
b:=sqrt((a/2)*(a/2)+h*h);
P:=b+b+a;
writeln('Периметр= ',P);
writeln('Площадь= ',S);
end.
Чаще всего применяют следующие способы кодирования информации:
1) <span>графический — с помощью рисунков или значков;
2) числовой — с помощью чисел:
3) символьный с помощью символов того же алфавита, что и исходный текст.
</span>графический