Ответ:
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.
Ответ:
Объяснение:
можно составить 12 кодов т.к. каждая согласная может находиться только в трёх местах, а гласные только в двух. Из чего следует что можно составить только эти 12 кодов:
САВЕТ, САТЕВ, ТАВЕС, ТАСЕВ, ВАТЕС, ВАСЕТ, СЕТАВ, СЕВАТ, ТЕСАВ, ТЕВАС, ВЕТАС, ВЕСАТ.
3 остальные не подхходят
решается подстановкой
A)
var x,y:real;
y:=sqrt(x);
б)
var a,b,c:real;
c:=sqrt(a*a+b*b);
в)
var a,b,c,d,x1,x2:real;
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
г)
var s1,s2,s3,st:real; k1,k2,k3:integer;
st:=s1*k1+s2*k2+s3*k3;