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.
Объяснение:
var a,k3,k4,k5,i: integer;
cr:real;
begin
k3:=0;
k4:=0;
k5 := 0;
cr:=0;
for i:=1 to 20 do
begin
writeln('введите оценку ученика');
readln (a);
cr:=cr+a;
if a mod 3=0 then k3:=k3+1 else if a mod 4= 0 then k4:=k4+1 else k5:=k5+1;
end;
writeln('число отметок 5,полученных учениками за контрольную работу:',k5);
cr:=cr/20;
writeln('Средний , полученный учениками за контрольную работу:',cr);
if (k5>k4) and (k5>k3) then writeln('пятерок больше всего')
else if (k4>k3) then writeln('четверок больше всего')
else writeln('троек больше всего')
end.
