Var a,b,c,d,f:integer; begin read (a,b,c,d,f); if a mod 2 = 0 then writeln ("Число четное") else нечетное. Задаешь команду на кол-во
var a,b,c:real; read (a,b) if a=b then c = a*b else c = a+b
Краткое решение <em>(без оформления)</em>
Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3
В настройках принтера задается размер области печати, он меньше размера бумаги и меньше физической области печати.
Заданная в настройках область меньше отправляемой на печать
Методы устранения
1) Изменить область печати в настройках, на пример уменьшить поля
2) Изменить масштаб документа и вписать его в область печати
3) Проигнорировать и отправить на печать, если отправлячемая область меньше физической, то документ распечатается нормально, иначе или будет обрезан или на нескольких листах
4) изменить форматирование документа, уменьшив область, отправляемую на печать.
Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>
Сколько единиц в двоичном представлении числа 3710 =3 единицы
<span>Выполнить вычитание в двоичной системе счисления: 1111012 - 1112 =110110</span>
<span>Перевести двоичное число 1001112 в десятичную систему счисления =39</span>
<span>Выполнить сложение в восьмеричной системе счисления: 1248+658 =211</span>
<span>Выполнить сложение в двоичной системе счисления: 11101112+1112 =1111110</span>
<span>Выполнить вычитание в восьмеричной системе счисления: 1128 - 678 =23</span>
<span>Перевести число 145 из десятичной системы счисления в 8 ричную систему </span>
<span>счисления =221</span>
