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.
Объяснение:
Аралас сілтемелер . Аралас сілтеме абсолютті және салыстырмалы бағанды жолды немесе абсолюттік жолды және салыстырмалы бағанды немесе қамтиды. Абсолютті сілтеме т.б. ба андар $ A1, $ В1, нысанын қабылдайды Абсолютті сілтеме желісі және т.б., $ 1 B, пішін $ 1 қабылдайды Сіз формуланы салыстырмалы сілтеме өзгерістер мен абсолюттік сілтеме бар ұяшықтың орнын өзгерту болса, өзгермейді. Көшіргіңіз кезде салыстырмалы сілтеме бойымен жолдар мен бағандарда арқылы формула автоматты түрде реттеледі және абсолютті сілтеме түзетілген емес.
Объяснение:
Негізі білмеймін бірақ сәттілік
