В конструкторском бюро работают Антонов, Борисов, Кириллов и Дроздов. Все хотят отдыхать летом, и поэтому при составлении графика отпусков всегда возникают бесконечные споры. Попробуйте со¬ставить график отпусков на 4 года, который бы удовлетворял следующим пожеланиям сотрудников:
1. в отпуск сотрудники хотят идти только с мая по август;
2. продолжительность отпуска — один месяц;
3. в каждом месяце в отпуск может пойти только один человек;
4. за четыре года каждый из четырех сотрудников должен получить
отпуск по одному разу в каждом из этих месяцев;
5. в первый год Кириллов хочет отдыхать в июле;
6. во второй год Антонову отпуск нужен в мае;
7. в третий год Дроздову отпуск нужен в июне;
8. Борисов на четвертый год предполагает уйти в отпуск в июле;
в августе все хотят отдыхать следующим образом: в первый год —
Дроздов, во второй — Кириллов, в третий — Борисов, в четвертый —
Антонов.
Требуется определить, кто есть кто.
a) не может, потому что переменные должны всегда начинаться с буквы
b) может
c) не может, слова могут быть разделены только знаком "_",не пробелом!
d) может
2) присваивание, обозначается знаком "="
Например:
sum = 0;
3)
4 строка - не red, а read
пропущена трока между 2 и 3 строчкой - это begin
4)
var
S, P, a, b: integer
begin
write('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
S = a * b; {нахидим площадь}
P = (a + b) * 2; {находим периметр}
writeln('Площадь = ', S, ', периметр = ', P);
end.
5)
Var
number, {Трехзначное число}
num1, {Первая крайняя цифра}
num2, {Вотрая крайняя цифра}
: integer;
Begin
write('Введите число');
readln(number);
num1 = number mod 10;
num2 = number div 100;
writeln('Сумма крайних цифр числа ', number, ' = ', num1 + num2);
End.
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
program prim_a;
var m, n, k: integer;
begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
end.
4. a)
program plowad;
var
a, h: real;
begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var
a, b: integer;
begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
end.