В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Irina12345678901
Irina12345678901
19.01.2021 23:47 •  Информатика

В конструкторском бюро работают Антонов, Борисов, Кириллов и Дроздов. Все хотят отдыхать летом, и поэтому при составлении графика отпусков всегда возникают бесконечные споры. Попробуйте со¬ставить график отпусков на 4 года, который бы удовлетворял следующим пожеланиям сотрудников:
1. в отпуск сотрудники хотят идти только с мая по август;
2. продолжительность отпуска — один месяц;
3. в каждом месяце в отпуск может пойти только один человек;
4. за четыре года каждый из четырех сотрудников должен получить
отпуск по одному разу в каждом из этих месяцев;
5. в первый год Кириллов хочет отдыхать в июле;
6. во второй год Антонову отпуск нужен в мае;
7. в третий год Дроздову отпуск нужен в июне;
8. Борисов на четвертый год предполагает уйти в отпуск в июле;
в августе все хотят отдыхать следующим образом: в первый год —
Дроздов, во второй — Кириллов, в третий — Борисов, в четвертый —
Антонов.
Требуется определить, кто есть кто.

Показать ответ
Ответ:
ndzandigiv
ndzandigiv
28.06.2021 05:40
1)
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.
0,0(0 оценок)
Ответ:
sonyaponchic
sonyaponchic
19.11.2020 10:58
1. a; c
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота