Program privet1;
var
k : integer;
begin
write('Введите номер курса: ');
readln(k);
if k = 1 then
writeln('Привет, первокурсник')
else if k = 2 then
writeln('Привет, второкурсник')
else if k = 3 then
writeln('Привет, третьекурсник')
else if k = 4 then
writeln('Привет, четверокурсник')
else if k = 5 then
writeln('Привет, пятикурсник');
end.
Ну по скольку рещение не нужно, то ты правильно решил:
Искомое минимальное количество солдат в части= НОК-1.
НОК берем от количества колонн при каждом построении. Все таки немного напишу:
(Х+1)/Ki, (X+1) должен делиться на все Ki, значит минимально будет НОК.
Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>
<span>Основные функции текстовых процессоров. Создание документов; редактирование документов: перемещение по тексту, вставками замена символов, удаление, перемещение, копирование, поиск и замена фрагментов текста, отмена команд; вставка фрагментов других документов или целых документов и т. Д.; Сохранение документов во внешней памяти (на дисках) и чтение из внешней памяти в оперативную; форматирование документов, т. Е. Выполнение преобразований, изменяющих форму (внешний вид) документа: оформление отдельных символов и абзацев, страниц, документа в целом - изменение длины строки, межстрочного расстояния, выравнивания текста, изменение шрифта, его размера, применение различного начертания шрифтов и т. Д.; Печать документов (или их некоторой части); автоматическое составление оглавлений и указателей в документе; создание и форматирование таблиц; внедрение в документ рисунков, формул и др.; Проверка пунктуации и орфографии</span>