Var
a[1..10]: array of integer;
i:integer;
Begin
i:=1;
while i<=10 begin
read(a[i]);
i:=i+1;
end;
End.
Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
773
Это наибольшее трехзначное, а всего 12 трехзначных чисел
<span>
<span><span>
773
</span>
<span>
764
</span>
<span>
755
</span>
<span>
746
</span>
<span>
737
</span>
<span>
674
</span>
<span>
647
</span>
<span>
575
</span>
<span>
557
</span>
<span>
476
</span>
<span>
467
</span>
<span>
377
Программу можно посмотреть Alt+F11
</span></span></span>
Ответ:
2) и 4)
Объяснение:
1) x+3y/5xy
2) x+3*y/5*xy
3) (x+3y)/5xy
4) (x+3*y)/(5*x*y)
Если переменные имеют имена х и у, то ни одна из записей не верна.
НО...
1) и 3) имен 3у, 5ху и 5ху4 не бывает, они не могут начинаться с цифры, поэтому запись неверна в любом случае.
2) если имена переменных х, у, и ху, то выражение корректно.
4) выражение корректно
1 1112
2 2022112120
3 110131121
4 1221