program MassaProg;
uses crt;
var factmassa, heigth: integer;
var massa: real;
begin
writeln('Vvedite rost v santimetrah: ');
readln(heigth);
writeln('Vvedite ves: ');
readln(factmassa);
massa:=heigth-100-0.1*(170-100);
if massa = factmassa
then writeln('Vash ves idealnii') else writeln('Vash ves ne idealnii');
end.
5589 = 931 * 6 + 3
931 = 155 * 6 + 1
155 = 25 * 6 + 5
25 = 4 * 6 + 1
4 = 6 * 0 + 4
Записываем числа после плюса справа налево: 41513.
Я думаю так: Д,В,Е,Ж,Г,Б,А Получается: ftp://edu.ru/demo.rar
Ответ: 648.
Нот код решения этой задачи на паскале!
Uses CRT;var a,b,c,d, i, n : integer;beginclrscr;n:=0; for i:= 100 to 1000 do begin a:= i div 100; b:= i div 10; b:= b mod 10; c:= i mod 10; if (a = b) or (b = c) or (a = c) then else begin n:= n + 1; end; end; writeln (n);end.