S= Sквадрата-Sкруга;
Sквадрата=a*a=8*8=64;
Sкруга=<span> πR^2=3,14*4^2=50,24;
S=64-50,24=9,76;</span>
Var a,b:string;
i:integer;
begin
readln(a);
readln(b);
for i:=1 to length(a) do
if a[i]=b then continue
else write(a[i]);
<span>end.</span>
Ответ:Язык здесь действительно не имеет значения. Как сказал Никлаус Вирт, "Мы должны учить программированию, а не программированию на конкретном языке". Цикл с предусловием применяют, если необходимо, чтобы в каком-нибудь случае тело цикла не выполнилось ни разу. Ц. с постусловием выполнится как минимум 1 раз.
Объяснение:
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.
Всего выпущено изделий на 1080 уе.
Надстройка, поиск решения в Excel.