• Составить программу в Pascal, используя цикл с счетчиком for

     

    1. Напечатать квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b>10)

    2. Напечатать все целые числа от a до b (значения a и b вводятся с клавиатуры)

Ответы 1

  • var   i, b:integer;begin   write('b = ');   readln(b);   for i := 10 to b do      writeln(i, ' * ', i, ' = ', i*i);   readln;end.

     

    //вторая задача

    var   a, b, i:integer;begin   write('a = ');   readln(a);   write('b = ');   readln(b);   for i := a + 1 to b - 1 do   write(i, ' ');   readln;end.

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

Еще вопросы

Войти через Google

или

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

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

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