Var
i, s: integer;
begin
s:=0;
for i:=1 to 50 do
if (i mod 3 = 0) or (i mod 7 = 0) then
inc(s, i);
<span>writeln(s);
</span>end.
<span>scanf("%f %f %c",&a,&b,&s); - считывает 2 числа, s - твоя операция
case - варианты, что сделать с числами
printf выводит результат операции</span>
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
N:byte;
A:array[1..256,1..256] of shortint;
implementation
{$R *.dfm}
Function S4(A:shortint):String;
Begin
result:=IntToStr(A);
For A:= 1 to 4-Length(result) do
result:=' '+result;
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
i,j:byte;
S:string;
begin
Randomize;
N:=StrToInt(Edit1.Text);
ListBox1.Clear;
For i:= 1 to N do
Begin
S:='';
For j:= 1 to N do
Begin
A[i,j]:=random(256)-128;
S:=S+S4(A[i,j])+' '
End;
ListBox1.Items.Add(S)
End;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
M,i,j,iMin,jMin:byte;
B:boolean;
S:string;
begin
M:=N div 2;
B:=true;
For i:= 1 to N do
For j:= 1 to M do
if A[i,j] <> A[i,N-j+1] then B:=false;
if Not B then
Begin
iMin:=1;
jMin:=1;
For i:= 1 to N do
For j:= 1 to N do
if A[i,j] < A[iMin,jMin] then
Begin
iMin:=i;
jMin:=j;
End;
ListBox1.Clear;
For i:= 1 to N do
Begin
S:='';
For j:= 1 to N do
Begin
A[i,j]:=A[iMin,jMin];
S:=S+S4(A[i,j])+' '
End;
ListBox1.Items.Add(S)
End;
End
end;
end.
Для красивого вывода матрицы на форме стоит моноширинный шрифт Courier New(Шрифт можно изменить так: выбрать объект(например, ListBox1), далее найти свойство Font → Name, и изменить шрифт на нужный). Размер шрифта на Label1 = 13(Label1.Size = 13).
Рассмотрите такой вариант, что удобно, оставьте, остальное - измените или удалите:
USB-модем (беспроводной, сотовой связи) - приёмо-передатчик, который преобразовывает электро-магнитные волны воздушной среды в электро-магнитные волны проводной среды и обратно, причём интерфейсом соединения с проводной средой выполнено посредством Universal_Serial_Bus (универсальная последовательная шина, первый уровень модели OSI). С другой стороны он же является преобразователем электро-магнитных колебаний при переходе последних из одной среды в другую и обратно.
Состоит из: радиоблока, защитного корпуса, USB-разъёма, собственного микропроцессора, дополнительных точек подключения (разъёмы для антанны, карты памяти и пр.). Имеется собственная операционная система, упраление которой возможно извне, при подключении модема, например, к компьютеру.
Радиоблок обеспечивает приёмопередачу данных в Интернет через сеть сотового оператора. Для этого необходимо авторизоваться в сети оператора, вставив в соответствующий разъём SIM/USIM-карту; после того, как в сети оператора произойдёт успешная проверка, будет возможно принимать/передавать данные с/на ПК в Интернет. Для этого необходимо на ПК установить утилиту для работы (или для управления) с модемом, её настроить посредством задания APN, номера набора и пр. настроек согласно информации от сотового оператора.
После того, как SIM/USIM карта авторизовалась в сети сотового оператора и как выполнены настройки утилиты для работы с модемом, можно инициировать выход в сеть оператора (через него в Интернет), а после этого начать работу в Интернете, будь то: просмотр видео, скачка файлов, работа в почте, звонки по WhatsApp и пр.
Если модем поддерживает функции СМС и голосовых вызовов вне Интернет, то при подключении к сотовой сети оператора будут доступны и эти функции.
