// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
begin Case ReadInteger('Введите номер месяца ->') of 1..2,12: Writeln('Зима'); 3..5: Writeln('Весна'); 6..8:Writeln('Лето'); 9..11:Writeln('Осень'); end; end.
var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
Последовательность действий ученика при самостоятельном изучении параграфа учебника: 1) достать учебник 2) сесть за стол 3) открыть учебник 4) прочитать параграф 5) ответить на вопросы после параграфа 6) открыть тетрадь 7) сделать краткий конспект по вопросам в конце параграфа 8) закрыть тетрадь 9) закрыть учебник 10) убрать учебник
Последовательность действий мамы при варке манной каши: 1) взять кастрюлю 2) налить воду в кастрюлю 3) зажечь огонь на плите 4) поставить кастрюлю на огонь 5) достать крупу, молоко 6) добавить в кастрюлю молоко 7) когда вода и молоко закипят добавить крупу 8) взять ложку 9) мешать ложкой крупу 10) накрыть крышкой 11) выключить огонь под кастрюлей
int n;
cin >> n;
switch (n)
{case 1 : cout << "Январь" ; break;
case 2 : cout << "Февраль" ; break;
case 3 : cout << "Март" ; break;
case 4 : cout << "Апрель" ; break;
case 5 : cout << "Май" ; break;
case 6 : cout << "Июнь" ; break;
case 7 : cout << "Июль" ; break;
case 8 : cout << "Август" ; break;
case 9 : cout << "Сентябрь" ; break;
case 10 : cout << "Октябрь" ; break;
case 11 : cout << "Ноябрь" ; break;
case 12 : cout << "Декабрь" ; break;
default: cout << "Такого месяца нет";
}
return 0;
}