Исследование чисел

Посмотреть архив целиком
program issledovanie_chisel;

{$APPTYPE CONSOLE}

uses
SysUtils;
var x,y,i,k,t:integer;
begin
writeln('Vvedite interval chisel cherez probel');
readln(x,y);
writeln(' ');
for i:=x to y do begin
k:=i*i*i;
writeln('zadannoe chislo ',i,' kub etogo chisla ',k);
if k mod 2=0 then writeln ('Chislo ',k,' chetnoe')
else writeln ('Chislo ',k,' nechetnoe');
end;
writeln(' ');
for i:= x to y do begin
t:=i div 2;
writeln('zadannoe chislo ',i,' zelochislennoe delenie na 2 ',t);
end;
writeln(' ');
for i:= x to y do begin
if i mod 2=0 then writeln('Chislo ',i,' chetnoe')
else writeln ('Chislo ',i,' nechetnoe');
end;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.