<span>const N=30;
var
a: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do bein
for j:=1 to N do begin
if (a[min]-a[mim2] < a[i]-a[j]) then bein
min1 = i;
min2 = j;
end;
end;
end;
Если я конечно правильно задание понял)</span>
#include "stdafx.h"
#include <iostream>
using namespace std;
int main( ) {<span>
int a, b;</span><span>
cout << "Enter A and press Enter:";</span><span>
cin >> a;</span><span>
cout << "Enter B and press Enter:";</span><span>
cin >> b;</span><span>
cout << "a+b= " << a+b << " ";</span><span>
system("pause");
</span>}<span>
</span>
uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
1) 11221
2) Сместиться на (-2, -1)
3) Сместиться на (-12, 0)
4) (13, -4)
5) 2
Это Август) Август — самый прям жаркий месяц лета)