<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Число -> ');
var b:integer;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
writeln(b);
<span>end.
2)
begin
var a:=ReadInteger('Число -> ');
var s:integer;
while a>0 do
begin
s+=1;
a:=a div 10;
end;
writeln('Количество:',s);
<span>end.
3)
begin
var a:=ReadInteger('Число -> ');
var s:=0;
var p:=1;
while a>0 do
begin
s+=a mod 10;
p*=a mod 10;
a:=a div 10;
end;
writeln('Сумма:',s);
writeln('Произведение:',p);
end.
4)
begin
var a:=ReadInteger('Число -> ');
var b:=ReadInteger('Цифра->');
var p:=0;
while a>0 do
begin
if b=a mod 10 then p+=1;
a:=a div 10;
end;
writeln('Количество',b ,':',p);
end.
</span></span></span>
Задание 8
1.
B&(AvB) = B&A v B&B = B&A v B = B&(A v 1) = B
2.
A&(Bv!B) = A&1 = A
3.
A&(AvBvC)=A&A v A&B v A&C = A v A&B v A&C = A&(1vBvC)=A
4.
!(AvBv!C)
var
i, c, s, n:integer;
Begin
write('Введите n: ');
readln(n);
s:= 0;
c:= 0;
write('Последовательность: ');
while i < n do begin
s:= s + i;
c:= c + 1;
i:= i + 2;
write(i, ' ');
end;
writeln;
writeln('Сумма последовательности: ', s);
writeln('Количество слагаемых: ', c);
END.
С Т Е П. А Н
19 20. 6 17 1. 15
Это код- каждая буква соответствует своему номеру в алфавите.
Например: А-первая буква в алфавите.