Program asd;
var chet,nechet,i:integer;
begin
for i:=1 to 10 do begin
If (i div 2)=0 then chet:=chet*i;
If (i div 2)=1 then nechet:=nechet+i
end;
Writeln(chet,nechet);
end.
//PascalABC.NEt v3.3 1633
var A,B,x,m: integer;
i: integer;
num, composition, sum: integer;
begin
A:=5;
B:=1;
x:=12;
m:=6;
write('Введите натуральное число: ');
readln(num);
composition:=1; // Произведение цифр числа
sum:=0; // Сумма цифр числа
// Преобразуем число в строку и пробегаемся по ней, находя
// сумму и произведение цифр.
for i:=1 to IntToStr(num).Length do
begin
composition *= StrToInt(IntToStr(num)[i]);
sum += StrToInt(IntToStr(num)[i]);
end;
if sum < A then
writeln('Верно! Сумма его цифр меньше A!')
else
writeln('Не верно! Сумма его цифр не меньше A!');
if composition > B then
writeln('Верно! Произведение его цифр больше B!')
else
writeln('Не верно! Произведение его цифр не больше B!');
if IntToStr(num).Length = x then
writeln('Верно! Это число '+x+'-значное!')
else
writeln('Не верно! Это число не '+x+'-значное!');
if StrToInt(IntToStr(num)[1]) > m then
writeln('Верно! Первая цифра числа превышает '+m)
else
writeln('Не верно! Первая цифра числа не превышает '+m);
end.
uses Crt;
var s,i:integer;
begin
ClrScr;
i:=0;
s:=0;
While i<10 do
Begin
i:=i+2;
s:=s+i;
end;
writeln('Summa chetnih ot 1 do 10 = ', s);
i:=1;
s:=1;
While i<9 do
Begin
i:=i+2;
s:=s*i;
end;
writeln('Proizv nechetnih ot 1 do 10 = ', s);
readln;
end.