Var a, d, c, t: integer; begin readln(a, d, c); if a < d then begin t : = a; a : = d; d : = t; end; if a < c then begin t : = a; a : = c; c : = t; end; if d < c then begin t : = d; d : = c; c : = t; end; writeln(a, ' ', d, ' ', c); end.
Спасибо
Ответ дал: Гость
program xxx;
var i, k, c, e : integer
begin
k: =0;
for i: =100 to 999 do
begin
c: = i div 100;
e: =i mod 10;
if c = e then k: =k+1
end;
writeln('кол-во палиндромов =', k);
readln
end.
Ответ дал: Гость
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
Популярные вопросы