Question

НАПИШИТЕ ПРОГРАММУ,МОЛЮ ,34 БАЛЛА

В 17 вагонов. С 10 по 17 вагонов купейные, а остальные-плацкартные. Ввести с клавиатуры номер вагона. Напечатать его вид.

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 if ReadInteger('№ вагона:') > 9 then Print('Купейный')

 else Print('Плацкартный')

end.

Answer 2

методы - на сайте через MSDN

Answer 3

Доберетесь до роутера, может скриптом каким сдерните данные

Answer 4

У меня он, например, сразу идет в диалог, так что там точно нужен скрипт.

Answer 5

Большего, к сожалению, сказать не могу. Не мое оно.

Answer 6

Хех, да ничего. Вы и так мне многим помогли)))) Покорнейше благодарю.

Answer 7

program kwajld;
uses CRT;
var a:integer;
begin
writeln('Введите номер вагона');
readln(a);
if (a<10)
then writeln('Плацкартный')
else writeln('Купейный');
end

Answer 8

Конечно извиняюсь, но print и readinteger знают не все

Answer 9

А я тут разве что-то про print и readinteger у Вас спросил?

Answer 10

Нет, я просто задал встречный вопрос, если уж дело встало так

Answer 11

Проще вопрос задавать так, где он в тему, т.е. под соответствующим решением)

Answer 12

Хорошо)