//Pascal var //Объявление переменных n, i: integer; //Объявляем переменные n - количество повторов и i - счетчик для цикла begin //Открытие логических скобок write('Введите n: '); //Выводит текст на монитор 'Введите n: ' readln(n); //запрашивает ввод с клавиатуры и заносит значение в переменную n for i := 1 to n do //Цикл от 1 до числа n writeln('Привет, друг!'); //С каждым шагом цикла выводится сообщение 'Привет, друг!' readln; //ожидание нажатия Enther после выполнения программы end.
Запишем таблицу распределения мест по купе: Купе Места 1 1-4,53,54 2 5-8,51,52 3 9-12,49,50 4 13-16,47,48 5 17-20,45,46 6 21-24,43,44 7 25-28,41,42 8 29-32,39,40 9 33-36,37,38 Установим связь номера места с номером купе. Предлагается следующий (конечно же, не единственный) вариант: Здесь знаком ÷ обозначена операция целочисленного деления.
Теперь можно написать программу. Язык программирования в задании не указан, поэтому выбран язык свободно распространяемой для целей обучения системы программирования PascalABC.Net
var n:integer; begin Write('Укажите номер места: '); Read(n); Write('Место располагается в купе №'); if n<=36 then Write((n-1) div 4 + 1) else Write((54-n) div 2 + 1) end.
Тестовое решение: Укажите номер места: 18 Место располагается в купе №5
Для этих профессий и для многих других в наше время компьютеры используются для того что бы облегчать работу. На пример для Учителя компьютер нужен что бы найти важную информацию для урока, найти презентации, а так же сейчас начали создавать электронные дневники, туда учителя могут ставить оцени ученикам, а родители могут заходить на этот сайт и смотреть оценки своих детей Для Врача - искать базу данных пациентов, а так же читать свободную энциклопедию для расширения и развития знаний. Для Библиотекаря - хранить данные о книгах которые есть в библиотеке, и о книгах которые находятся у читателей.
var
n, i: integer;
begin
write('Введите n: '); readln(n);
for i := 1 to n do
writeln('Привет, друг!');
readln;
end.