Наверное контекстное меню!
const
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
1.
алг Девять
нач цел a,i,s
ввод a
| вывод a
s:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
если i=9
то s:=s+1;
все
кц
если s>1
то вывод "Цифр 9 в введенном числе больше одной - ", s
иначе если s=0
то вывод "Цифр 9 в введенном числе нет"
иначе вывод "Цифра 9 в введенном числе одна"
все;
все
кон
2.
алг ЧетНечет
нач цел a,i,s,k
ввод a
| вывод a
s:=0;
k:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
k:=k+1;
если mod(i,2)=0
то s:=s+1;
все
кц
если s=k
то вывод "Все цифры введенного числа четные "
иначе вывод "Не все цифры введенного числа четные"
все
кон
3.
алг Возрастание
нач цел a,i,s,k,d,z
ввод a
s:=0;
k:=0;
d:=0;
z:=1;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
d:=s;
s:=i;
k:=k+1;
если d>s
то z:=z+1;
все
кц
если z=k
то вывод "Все цифры введенного числа идут в порядке возрастания"
иначе вывод "Не все цифры введенного числа идут в порядке возрастания"
все
кон
Естественные языки: Немецкий, Английский,Французкий.
Естественный язык --- язык созданый не целенаправленно, сделанный для общения людей
#include <iostream>
#include <cmath>
using namespace std;
double Otr(double Ax, double Bx, double Ay, double By) {
return sqrt((Bx - Ax)*(Bx - Ax) + (By - Ay)*(By - Ay));
}
int main() {
double Ax, Ay, Bx, By, Cx, Cy, Dx, Dy;
cin >> Ax >> Ay >> Bx >> By >> Cx >> Cy >> Dx >> Dy;
cout << "|AB|=" << Otr(Ax, Bx, Ay, By) << endl;
cout << "|AC|=" << Otr(Ax, Cx, Ay, Cy) << endl;
cout << "|AD|=" << Otr(Ax, Dx, Ay, Dy) << endl;
return 0;
}