Ввести a и b и вывести квадраты и кубы чисел от a до b пример: введите границы интервала : 4 6 4 16 64 5 25 125 6 36 216

Помагайтыыыы Помагайтыыыы    2   15.06.2019 11:30    10

Ответы
vladislavkraso vladislavkraso  12.07.2020 16:21
Var
a,b,i:integer;
begin
readln(a,b);
for i:= a to b do 
writeln(i:6,sqr(i):6,Power(i,3):6);
readln
end.
ПОКАЗАТЬ ОТВЕТЫ
mihatyt100 mihatyt100  12.07.2020 16:21
Program name;//Имя программы
uses crt;//Запуск программы в консольном режиме НЕОБЯЗАТЕЛЬНО
var 
   a : Integer; 
b : Integer; 
i : Integer; 
c : Integer;
BEGIN //Начало программы 
write('Введите 1 число: ');  readln(a);//Ввод значения первого числа 
c := b-a-1;  write('Введите 2 число: '); 
readln(b);//Ввод значения второго числа 
writeln(a, ' ' , b); //Вывод двух чисел
  writeln(a, ' ' ,a*a,' ' , a*a*a); // Вывод 1 числа, квадрата, куба 
for i := 1 to b-a-1 do  
begin   
a := a + 1;   
writeln(a, ' ',a*a, ' ', a*a*a); // Вывод всех чисел от a до b 
end;         
writeln(b, ' ' ,b*b,' ' , b*b*b);// Вывод 2 числа, квадрата, куба 
ReadKey;  
end. //Конец программы
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика