<u>1. Современное решение</u><em>
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a:=106.Step(6).Take(15).ToArray; a.Println
end.
Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190
<u>2. Древнее школьное решение "в лоб"</u>var
a:array[1..15] of integer;
i,k:integer;
begin
k:=106;
for i:=1 to 15 do begin
a[i]:=k;
k:=k+6;
Write(a[i],' ')
end;
Writeln
end.
<u>3. Усовершенствованное древнее школьное решение.</u>Последовательность - арифметическая прогрессия с первым членом a₁=106 и разностью d=6.
Тогда
var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=100+6*i;
Write(a[i],' ')
end;
Writeln
end.
Содержит "Если" и "Иначе", либо подобные.
Например - "Он сказал: "либо вы отдаете деньги сейчас, либо вы пожалеете".
if (Вы отдали деньги) then (Все хорошо)
else (Вы пожалеете)
Ответ:
12
Объяснение:
Элементарная арифметика 36/6 = 6 , а 6+6 = 12
Var a,b,c:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(A div 10) mod 10;
c:= A mod 10;
a:= A div 100;
if (a=b)or(b=c)or(c=a) then WriteLn('Да')
else WriteLn('Нет');
End.