Жили были монитор, клавиатура,системный блок и мышь.Они все жили в разных районах,но случилось так,что они все переехали и стали жить рядом с друг другом.Далее они пошли в одну школу,но почему-то не общались.Их всех избрали в школьный парламент.В рамках этого парламента им нужно было сделать один совместный проект.Сначала они не поладили,системный блок задирал остальных, особенно мышь, которую он прозвал серой мышкою.Все остальные обиделись на системный блок,и стали работать над проектом втроём.Системный блок признал свою ошибку,и попросил у всех прощения.Когда над проектом работали только трое, ни-че-го не получалось.Но все вместе они создали уникальный проект и получили за него пятерку.Ребята усвоили,что порознь-они ничего не добьются,но вместе-они свернут горы)
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.
Объяснение: