Месяца напишите программаны, который выпускает, следующее наименование месяца посмотрев раз нөмеріне. (если есть здешний m=1, февральский месяц, 4 - май, 12 января)
Program c; var a:byte; begin read(a); if a = 1 then write('Январь') else if a=2 then write('Февраль') else if a=2 then write('Март')else if a=2 then write('Апрель')else if a=2 then write('Май')else if a=2 then write('Июнь')else if a=2 then write('Июль')else if a=2 then write('Август')else if a=2 then write('Сентябрь')else if a=2 then write('Октябрь')else if a=2 then write('Ноябрь')else if a=2 then write('Декабрь'); end. Вроде так, но не уверен
Для решения определим 1. Время передачи по высокоскоростному каналу 2. Время передачи по низкоскоростному каналу 3. Время для получения первых 1024 Кб 4. Всё сложим.
Ввод графической информации может быть осуществлён с различных устройств: клавиатуры, мыши, сканера или графического планшета. Каждое из них имеет те или иные достоинства, но основной характеристикой является удобство использования. Клавиатура плохо подходит для построения изображений, так как она изначально предназначена для набора символьной, а не графической информации. Однако применение клавиатуры для ввода графической информации имеет определённые преимущества. С клавиш можно перемещать курсор каждый раз на одну позицию.
var
a:byte;
begin
read(a);
if a = 1 then write('Январь') else if a=2 then write('Февраль') else if a=2 then write('Март')else if a=2
then write('Апрель')else if a=2 then write('Май')else if a=2 then write('Июнь')else
if a=2 then write('Июль')else if a=2 then write('Август')else if a=2 then write('Сентябрь')else
if a=2 then write('Октябрь')else if a=2 then write('Ноябрь')else if a=2 then write('Декабрь');
end.
Вроде так, но не уверен