Вывести в виде таблицы числа от 50 до 70, их квадраты и кубы с помощью команды while

@Андрей159 · Регистрация: 22.09.2015

Вывести в виде таблицы числа от 50 до 70, их квадраты и кубы с помощью команды while.

@JokeR.BY · 22.09.2015, 16:24

Pascal

const
    a = 50;
    b = 70;
    line = '----------------------';
var
    i: Byte;
begin
    WriteLn(line);
    WriteLn('|  x |  x2  |   x3   |');
    WriteLn(line);
    i := a;
    while (i <= b) do
    begin
        WriteLn('| ', i:2, ' | ', (i * i):4, ' | ', (i * i * i):6, ' |');
        Inc(i);
    end;
    WriteLn(line);
end.

@Андрей159 0 / 0 / 1 Регистрация: 22.09.2015 Сообщений: 104
		1
	Вывести в виде таблицы числа от 50 до 70, их квадраты и кубы с помощью команды while 22.09.2015, 16:13. Показов 1161. Ответов 1 Метки нет (Все метки) Вывести в виде таблицы числа от 50 до 70, их квадраты и кубы с помощью команды while. 0

Опции темы

Вывести в виде таблицы числа от 50 до 70, их квадраты и кубы с помощью команды while

Решение