// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
type Ex211a=class
public
constructor(fio,phone:string); begin var n:=Max(fio.Length,phone.Length); Writeln((n+2)*'*'); Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*'); Writeln((n+2)*'*') end; end;
type Ex211b=class
public
constructor; begin var n:=ReadInteger('Введите целое число:'); Writeln('Результат равен ',n+10) end; end;
begin new Ex211a('Иван Иванов','7-841-2666666'); new Ex211b end.
// Внимание! Если программа не работает, обновите версию!
type
Ex211a=class
public
constructor(fio,phone:string);
begin
var n:=Max(fio.Length,phone.Length);
Writeln((n+2)*'*');
Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
Writeln((n+2)*'*')
end;
end;
type
Ex211b=class
public
constructor;
begin
var n:=ReadInteger('Введите целое число:');
Writeln('Результат равен ',n+10)
end;
end;
begin
new Ex211a('Иван Иванов','7-841-2666666');
new Ex211b
end.
Пример
*Иван Иванов *
*7-841-2666666*
Введите целое число: 18
Результат равен 28
Думаю, что отдельно писать программу лишь для оператора присвоения как-то тупо, поэтому объединим с условным оператором.
№3 а) б)
var
x : integer;
begin
writeln('Введите положительное число: ');
readln(x);
if x < 0 then //условный оператор
write('Вы ввели отрицательное число!')
end.
№4 а)
var
month : integer;
begin
readln(month);
if (month = 1) or (month = 2) or (month = 12) then
writeln('зима')
else if (month = 3) or (month = 4) or (month = 5) then
writeln('весна')
else if (month = 6) or (month = 7) or (month = 8) then
writeln('лето')
else if (month = 9) or (month = 10) or (month = 11) then
writeln('осень')
else
writeln('неверно введен номер месяца');
end.
№4 b)
//давайте посчитаем количество цифр в числе
var
counter, x : integer;
begin
readln(x);
counter := 0;
while x > 0 do
begin
counter := counter + 1;
x := x div 10;
end;
write('Количество цифр: ',counter);
end.
Что-то я сложные программы какие-то написал, если надо попроще, то напиши в комменты)