5
Объяснение:i := 0; S := 0;while i<2 dobegini := i + 1;S := S + i * i;end;В программе цикл, который выполняется до тех пор, пока i<2.
Изначально i = 0, S = 0. Проходим по циклу:
i:=i+1 /// Увеличиваем i на 1 (i = 0 + 1 = 1)
S:=S+i*i /// Прибавляем к S произведение i и i (S = 0 + 1*1 = 1)
i<2 ? i = 1, так что да, поэтому выполняем:
i:=i+1 /// Увеличиваем i на 1 (i = 1 + 1 = 2)
S:=S+i*i /// Прибавляем к S произведение i и i (S = 1 + 2*2 = 5)
i<2 ? i = 2, так что нет, поэтому конец.
Итак, как мы видим, S у нас равна 5.
Можем проверить, выполнив этот код:
PascalABC.NET:
beginvar a := ReadArrInteger(ReadInteger('Введите количество чисел:')); Println('Максимальное число, кратное 5:', a.Where(c->c mod 5 =0).Max);end.Можно и в одну строчку, но тогда читабельность начинает страдать:
begin Println('Максимальное число, кратное 5:', ReadArrInteger(ReadInteger('Введите количество чисел:')).Where(c -> c mod 5 = 0).Max); end.Объяснение:ReadArrInteger(n) /// Возвращает массив из n целых чисел, введённых с клавиатуры.
ReadInteger(s) /// Выводит s и возвращает целое число, введённое с клавиатуры.
Where(predicate) /// В нашем случае он возвращает только те элементы нашей последовательности, которые кратны 5.
Max /// Возвращает максимальное число последовательности.
Пример работо программы:
На фото часть одной из таких таблиц.
А ниже программка на паскале, иллюстрирующая работу этих функций:
program aaa;
//Chr (x), Ord (x), Pred (x), Succ (x),
var x: integer; y,z: string;
begin
//присвоим переменной у значение символа под номером 102:
y:=chr(102);
writeln('chr(102)= ',y);
//присвоим переменной x номер позиции символа а в таблице кодировки Windows ASCII:
x:=ord('f');
writeln('ord(''f'')= ',x);
//а теперь возьмем символ русского алфавита "Ф":
x:=ord('Ф');//
writeln('ord(''Ф'')= ',x);
//Теперь нам нужен символ, следующий, например, за символом Ю:
y:=succ('Ю');
writeln('succ(''Ю'')= ',y);
//Или символ, предществующий символу Я:
y:=pred('Я');
writeln('pred(''Я'')= ',y);
end.
Результат работы программы:
chr(102)= f
ord('f')= 102
ord('Ф')= 212
succ('Ю')= Я
pred('Я')= Ю