Var
i, n, s, x: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
readln(x);
if (x mod 10 = 8) and (x mod 6 = 0) then
s := s + x;
end;
writeln('S = ', s);
end.
1. алгоритм сведен к подсчету одинаковых букв в словах: n=9
2. из первой талицы выбираем машины, удовлетворяющие условию, по второй таблице выясняем их владельцев и выстраиваем в алфавитном порядке: 416587
Ты разве уже это не просил? Внутри кода замени все вопросы и ответы на свои. Затем скомпилируй если надо
Uses GraphABC;
var s:string;
begin
writeln('Введите название фигуры (круг или треугольник):');
readln(s);
setwindowsize (640,480);
setwindowtitle (s);
setpencolor (clBlue);
setpenwidth (4);
if s='круг' then
circle(300,200,120)
else begin
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
end.
For i = 1 To 9
For j = 1 To 9
s$=String(i*j)
if length(s$)=1 then s$=" "+s$ else if length(s$)=2 then s$=" "+s$
Print s$;
Next j
Print
Next i
End
Результат работы программы:
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
Замечание: таблица на самом деле ровная, это тут ширина пробела и ширина цифры различна, поэтому сдвиг.
