X[ i ]<>R по выходу из while как раз i - и будет индекс элемента массива, равного R
!
1берем высоту h,2 берем сторону ,у которой проведено основание ,3 перемножаем сторону и основание
Вот так можно исправить, чтоб заработало
var
s, k: integer;
begin
s := 8;
for k := 2 to 8 do
s := s + 8;
writeln(s);
end.
Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>
А) металл ;цифровая
б) бумага (картон); цифровая (индекс), текстовая, графическая
в) бумага; текстовая, цифровая
г) бумага; цифровая, текстовая, графическая
д)оптический или цифровой диск; видео, аудио.
насчет диска точно не знаю, извини))