<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
<u>Пример:</u>
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161
На языке программирования С++ программа, которая выводит сумму двух введенных чисел (a и b). По стандартам числа по модулю не превосходят 1000000000.
Устраивает? Если нет – в личке разберемся.
#include <iostream>
using namespace std;
int main()
{
int a, b;
cin >> a >> b;
cout << a + b;
return 0;
}
Иногда в процесс программирования приходится использовать в программе цикл, который используется в цикле. Например, если делать пузырьковый метод сортировки массива. В таком случае, тот массив, который находится <em>внутри</em> другого называется внутренним, а тот в котором находится другой цикл - внешним
Var a,b:real;
Begin
Write('Длина = ');ReadLn(a);
Write('Ширина = ');ReadLn(b);
if a=b then Write('Является квадратом')
else WriteLn('Не является квадратом')
End.