Товар стоит a руб. b коп. за него заплатили c руб. d коп. сколько сдачи требуется получить? вводятся 4 числа: a, b, c и d. необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно. примеры входные данные выходные данные 2 1 3 21 12 1 4 01 99эту можно решать и при одних арифметических операций, не используя инструкцию if.

Ответы

Ответ дал: ololeg1

Var a, b, c, d, e, f: integer; begin readln(a, b, c, d); e : = a * 100 + b; f : = c * 100 + d; e : = f - e; f : = e mod 100; e : = e div 100; writeln(e, ' rub. ', f, ' kop.'); end.сделал много вычислений, чтобы нагляднее =) можно даже в 2 строки уложиться, но в данном случае это слишком, наверное: )

Спасибо

Ответ дал: Гость

они могли обозначать союзы, знаки препинания, слова в один слог.

Ответ дал: Гость

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

потхоньку буду дополнять, не так все быстро))

№5

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.