writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
end.
var
a: integer;
begin
readln(n);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
end.
Ответ дал: Гость
ответ надо продемонстрировать рисунком, я не умею на компьютере, поэтому рисую такую схему,как разместить зайцев в прямоугольной клетке.
з -это заяц,их должно быть 5:
три зайца по углам и два у стенок по одному.
з з это для малышей,ее каждый ребенок знает.
з
з з
Ответ дал: Гость
1)
var a, b: integer;
begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.
2)
var a: integer;
begin readln(a); writeln((a mod 10) * 10 + a div 10); end.
3)
var a: integer;
begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.
Ответ дал: Гость
интерфейс, ёмкость, размер, время произвольного доступа, скорость вращения шпинделя, надежность, количество операций ввода-вывода в секунду, потребление энергии, сопротивляемость ударам, скорость передачи данных, объем буфера.
(жирным шрифтом для всех, обычным для жестких, флеш и тд.)
Популярные вопросы