Составить программу в pascal, которая вводит трехзначное число и выводит число-перевертыш (пример 123-> 321)

241

280

Посмотреть ответы 2

Ответы на вопрос:

mascamasa

Информатика

4,8(75 оценок)

program ssd;

uses crt,graph;

var a,a1,a2,a3: integer;

begin

clrscr;

writeln('введите трехзначное число');

readln(a);

a1: = a mod 10;

a2: =(a div 10) mod 10;

a3: = a div 100;

writeln(' ',a1,a2,a3);

readkey;

end.

Seallk

Информатика

4,7(26 оценок)

Обозначим б - число быков, к - число коров, т - число телят. тогда можно записать, что б+к+т=100 (1) 10б+5к+0.5т=100 (2) из (2) найдем ограничения на количества б, к, и т. б ∈ [0; 10], к ∈ [0; 20]. из (1) находим, что т=100-б-к, т - четное (иначе сумма не будет целой). эти ограничения позволят правильно построить циклы в программе. pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin for var б: =0 to 10 do for var k: =0 to 20 do begin var t: =100-б-k; // из уравнения (1) if t.iseven and (10*б+5*k+t div 2=100) then writeln(б,'б, ',k,'k, ',t,'t') end end. результат 1б, 9k, 90t