Предмет: Информатика,
автор: kwajld
НАПИШИТЕ ПРОГРАММУ,МОЛЮ ,34 БАЛЛА
В 17 вагонов. С 10 по 17 вагонов купейные, а остальные-плацкартные. Ввести с клавиатуры номер вагона. Напечатать его вид.
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
begin
if ReadInteger('№ вагона:') > 9 then Print('Купейный')
else Print('Плацкартный')
end.
ИССА2003:
В каком плане?
Ну в таком, что не показывает внешний адрес внутри сетки
ааа
Попробуйте с роутером поиграть через system.net
В \Samples\NetLibraries есть пример работы
методы - на сайте через MSDN
Доберетесь до роутера, может скриптом каким сдерните данные
У меня он, например, сразу идет в диалог, так что там точно нужен скрипт.
Большего, к сожалению, сказать не могу. Не мое оно.
Хех, да ничего. Вы и так мне многим помогли)))) Покорнейше благодарю.
Автор ответа:
1
program kwajld;
uses CRT;
var a:integer;
begin
writeln('Введите номер вагона');
readln(a);
if (a<10)
then writeln('Плацкартный')
else writeln('Купейный');
end
uses CRT;
var a:integer;
begin
writeln('Введите номер вагона');
readln(a);
if (a<10)
then writeln('Плацкартный')
else writeln('Купейный');
end
И, заодно, program )))
ну, честно говоря, это все необязательно, но он учится в школе видно. Ему то надо
Выкиньте две первых строки - и по факту ничего не изменится.
С чего это "ему надо" то, что никому не надо?
Я же написал, что не обязательно) Пишу для учеников так)
Конечно извиняюсь, но print и readinteger знают не все
А я тут разве что-то про print и readinteger у Вас спросил?
Нет, я просто задал встречный вопрос, если уж дело встало так
Проще вопрос задавать так, где он в тему, т.е. под соответствующим решением)
Хорошо)
Похожие вопросы
Предмет: Английский язык,
автор: amirlanzhumagaliev09
Предмет: Алгебра,
автор: Dakidakq
Предмет: Биология,
автор: sahovaekaterina510
Предмет: Литература,
автор: AlisaPodolskaya
Предмет: Литература,
автор: Lili15032006