Begin
var
int one, two;
bool end=false;
readln(one)
readln(two)
if(one=two or one+2=two or one>two)
writwln("пара чисел написана неправильно")
while(end=false)
begin
if (two>one)
begin
one:=one+2;
writeln(one)
else
end=true;
end;
end;
end.
<span>var s1,s2:real; i:integer;
begin
s1:=2500000;
s2:=2000000;
for i:=1 to 7 do
begin
s1:=s1+s1*5.5/100;
s2:=s2+s2*6/100;
end;
writeln('s1 = ',s1:0:2,' s2 = ',s2:0:2);
if s1>s2
then writeln('В первом банке денег будет больше на ',s1-s2:0:2)
else writeln('Во втором банке денег будет больше на ',s2-s1:0:2);
end<span>.
Результат:
</span><span>s1 = 3636697.90 s2 = 3007260.52
В первом банке денег будет больше на 629437.38</span></span>
Var n,i,k,s:integer;
begin
read (n);
k:=0;
s:=0;
for i:=1 to n do
begin
if (n mod i = 0) then
begin
if (i mod 2 = 0)then
begin
k:=k+1;
end else
begin
s:=s+i;
end;
end;
end;
writeln ('Кол-во чётных - ',k);
writeln ('Сумма нечётных - ',s);
end.
Мы празднуем украинские праздники одеваем украинские костюмы