#include
int main()
{
int i;
cin >> i;
if(i<3 || i==12)
cout << “winter”;
else if(i <6)
cout << “spring”;
else if(i<9)
cout << “summer”;
else
cout << “autumn”;
return 0;
}
Хочу попередити зразу, що в різних версіях програми алгоритм може дещо відрізнятися.
1. Вибрати в документі МІСЦЕ, куди буде вставлятися зображення.
2. Виконати Вставлення => Зображення => Із файлу.
3. Вибрати у вікні ВСТАВЛЕННЯ ЗОБРАЖЕННЯ потрібний файл.
4. Вибрати кнопку ВСТАВИТИ.
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>