Что такое буква А,если 0 то равно 3016
Ответ:
Объяснение:
// Возведение в степень
program stepen;
var
p,i,n, a:integer;
begin
write('введите число и степень');
readln(a,n);
p:=1;
for i:=1 to n do p:=p*a;
writeln('Число ',a, ' в степени ',n,' = ',p);
readln;
end.
//Сумма нечетных цифр числа
program project1;
var
a, b, s : integer;
begin
s := 0;
write('введите число: ');
readln(a);
while a <> 0 do
begin
b := a mod 10;
if b mod 2 <> 0 then s := s + b;
a := a div 10
end;
writeln('сумма нечетных цифр: ', s);
readln;
end.
//Сумма четных чисел до n
program summach;
var
S,n,i:integer;
begin
Write('Введите n=');
readln(n);
if n mod 2<>0 then n:=n-1;
n:=n div 2;
s:=0;
for i:=1 to n do
s:=s+2*i;
writeln('s=',s);
readln;
end.
//===================================
// сумма четных с циклом repeat
program summach1;
Write('Введите n=');
readln(n);
if n mod 2<>0 then n:=n-1;
s:=0;i:=1;
repeat
s:=s+2*i;
i:=i+1;
until 2*i>n ;
writeln('n=',n);
writeln('s=',s);
readln;
Ответ:Это не евляется простым числом потомучто это дробное 0.(9)
program slova;
uses crt;
var s, s1: string;
i, k: integer;
begin
clrscr;
writeln ('Vvedite text: ');
readln (s1);
write ('Slova soderjaschie ne bolee 3-h bukv: ');
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
s1:=s1+s[i];
k:=k+1;
end
else
if k<=3 then
begin
write (', ',s1);
k:=0;
delete (s1,1,3);
end
else
begin
k:=0;
delete (s1,1,15);
end;
end;
readln;
end.
Вроде так, но у меня щас нету компилятора, так что проверить не могу. Если что-то будет ругаться, или вопросы какие - пиши в личку.