Ответ:
а = 25
b - не определено
Объяснение:
а = 5 + 10 * 2 = 5 + 20 = 25
операции с переменной b не указаны
Var i,n:Integer;
A:Array[1..1000] of Real;
sum,srednee,max,min:Real;
Begin
Read(n);
for i:=1 to n do
Read(A[i]);
for i:=1 to n do
sum:=sum+A[i];
srednee:=sum/n;
max:=A[1];
min:=A[1];
for i:=1 to n do
begin
if (A[i]>max) then max:=A[i];
if (A[i]<min) then min:=A[i];
end;
Writeln('Srednee = ',srednee:0:2,' Min = ',min:0:2,' Max = ',max:0:2);
end.
Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords;
a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Println
end.
<u>Пример</u>
vanitas vanitatum et omnia vanitas
vanitatum