приготовление обеда - повар
уборка квартиры - уборщица
уборка мусора во дворе - дворник
стирка - прачка
перевозка пассажиров - таксист, водитель
обучение детец в школе - учитель
продажа железнодорожных билетов - продавец
поддержание температуры в помещении -
прием зачета -
доставка корреспонденции - курьер
<u>Чертежник PascalABC.NET 3.3
</u>
Текстовый файл с кодом для букв и другой фигуры(круг) прикреплены:
a = "1"
b = "2"
n = 3
(a + b) * n = "12"*3 = "121212"
a*n + b*n = "1"*3 + "2"*3 = "111222"
Var x,y:real;
begin
read(x);
y:=1/x;
print(y);
end.
Program arr;
Const n=3;
var i, j, tmp, k, z:integer;
c:boolean;
a:array [1..n,1..n] of integer;
begin
c:=false;
for i:=1 to n do
for j:=1 to n do
read(a[i][j]);
for i:=1 to n do
for j:=1 to n do
begin
tmp:=a[i][j];
for k:=i+1 to n do
for z:=j+1 to n do
if tmp = a[k][z] then
c:=true;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i][j], ' ');
writeln;
end;
if c = true then
writeln('В данном массиве есть равные друг другу элементы')
else writeln('Элементы, равные друг другу, отсутсвуют в данном массиве');
end.