Ответ: 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.
Ответ: d)
Объяснение: Можно, поскольку в условии соблюдены минимальные требования, необходимые для общения.
Var
n,k:integer;
Begin
k:=-1;
Repeat
Write('Введите номер месяца: ');Read(n);
k:=k+1;
Until (n>0)and(n<13);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
WriteLn('Количество дней: ',n);
WriteLn('Количество ошибок при вводе: ',k);
End.
CLS
INPUT "a=", a
INPUT "b=", b
IF a = 0 THEN
IF b = 0 THEN
PRINT "Resheniy beskonechno"
ELSE
PRINT "Resheniy net"
END IF
ELSE
PRINT "x="; b / a
END IF
END