Ответ:
2
Объяснение:
Алгорим тут, мягко говоря, странноват.
t :=a[i];
a[i-1] := a[0];
a[0] := t
Никакого t здесь не нужно, достаточно написать
a[i-1] := a[0];
a[0] := a[i]
В цикле, начиная с третьего по порядку элемента, производится его сравнение с самым первым элементом (вначале его значение равно 5).
Присваивание a[i-1] := a[0] в теле цикла никак на a[0] не влияет и на сравнение не влияет, поэтому забудем о нем.
Таким образом, существенным оказывается лишь факт попадания на место a[0] элемента, меньшего a[0] и каждое такое попадание увеличивает счетчик с на 1. Первонаяальное значение с нулевое, так что с отражает количество попаданий в a[0] элементов, меньших его значения. Анализ значений элементов с a[2] по a[9] показывает, что сначала в a[0] попадает 2 (2 < 5), а затем 0 ( 0 < 2). Поэтому с = 2.
Program chetnoe;Uses crt;Var x:integer;BeginClrscr;Writeln ('Ведите двузначное число');Readln(x);IF X mod 2=0 then Writeln ('Число четное')else Writeln ('Число нечетное');End.
<u><em>1. Решение для "школьников"
</em></u>// PascalABC.NET 3.0, сборка 1073
var
i,n:integer;
s:string;
begin
Write('Введите свое имя: '); Readln(s);
if s[1]='И' then begin
n:=Length(s)-1;
s:=s[1];
for i:=1 to n do s:=s+'*'
end;
Writeln('Результат работы: ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите свое имя: Игорь
Результат работы: И****
Введите свое имя: Сергей
Результат работы: Сергей
<em><u>2. Решение, каким оно должно быть, но этому не учат</u></em>
// PascalABC.NET 3.0, сборка 1073
begin
var s:=ReadString('Введите свое имя: ');
if s[1]='И' then s:=s[1]+StringOfChar('*',Length(s)-1);
Writeln('Результат работы: ',s)
end.
программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.
