PascalABC.NET
#1
function Y(x:integer) := 2*((x+2)**2)+5.5*(x+2) - 3;
begin
var Xes := Range(3, 25);
Xes.Tabulate(p -> Y(p)).Println;
end.
#2
const PASS = '123ab';
begin
var rpass := Readstring('Pass: ');
while rpass <> PASS do begin
rpass := Readstring('Wrong pass. Try again: ');
end;
print('Correct password. Welcome');
end.
#3
begin
//Сначала читаем цифру, которую надо удалить, а уже потом число.
var X := ReadChar();
var number := ReadInteger().ToString.ToCharArray.ToList;
while number.Contains(X) do number.Remove(X);
number.JoinIntoString.Println;
end.
#4
begin
var X := ReadInteger();
Print((x div 100)+(x mod 100));
end.
Объяснение:
Ваша формула полностью рабочая, не могу представить, почему в Вашем файле он выдает ошибку. В моём файле можете подставить свою формулу и убедиться в этом.
Предлагаю свой вариант:
=ЕСЛИ(ИЛИ(B2>$D$9;C2="Да");B2-B2*$D$8;B2)
Объяснение:
=ЕСЛИ - проверяет, выполняется ли условие, и возвращает одно значение, если оно выполняется, и другое значение, если нет
ИЛИ() - проверяет, имеет ли хотя бы один из аргументов значение ИСТИНА, и возвращает значение ИСТИНА или ЛОЖЬ. Значение ЛОЖЬ возвращается только в том случае, если все аргументы имеют значение ЛОЖЬ.
Прикрепляю готовый файл :)
