23
АвгустПредставленный ниже на пяти языках программирования фрагмент программы обрабатывает элементы одномерного…
Предмет: Информатика
Уровень: 10 - 11 класс
Представленный ниже на пяти языках программирования фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 1, 8, 2, 6, 3, 2, 2, 1 (т.е. A[0] = 2, A[1] = 4, …, A[9] = 1). Определите значение переменной s после выполнения фрагмента.
Паскаль
n:=10;
s:=0;
for i:=1 to n-1 do begin
if a[i-1]>2*a[i] then begin
a[i]:=2*a[i];
s := s+ a[i];
end;
end;
//Pascal
//———————————————
var
S: string;
i, counts: byte;
begin
counts := 0;
write(‘Введите S: ‘);
readln(s);
for i := 1 to length(s) do
if S[i] = ‘9’ then
counts := counts + 1;
writeln(‘Количество «9» = ‘, counts);
readln;
end.