Задать вопрос Регистрация
Помочь другим

Ответы 2

  • var a:integer;

    begin

    for a:=1 to 10 do

    writeln(a,'^3=',sqr(a)*a);

    end.

  • program c1;

    var

    a,k:integer;

    begin 

    writeln( ' Введите число в диапазоне от 1 до 10: ')

    read(a);

    if ((a<=10) and (a>=1)) then k:=a*a*a else write (' Введённое число не входит в диапазон чисел');

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years