Предмет:
ИнформатикаАвтор:
аноним1)program square_cube; // с циклом for var a, b: integer;beginwriteln(\'enter two numbers with a space \');readln(a, b);for i: integer:= a to b do writeln(power(i, 2) : 8, power(i, 3) : 8)end.
2)program square_cube1; //c циклом whilevar a, b: integer;beginwriteln(\'enter two numbers with a space \');readln(a, b);while (a < b) or (a = b) do beginwriteln(power(a, 2) : 8, power(a, 3) : 8);a:= a + 1;endend.
3)program square_cube2; //с циклом repeatvar a, b: integer;beginwriteln(\'enter two numbers with a space \');readln(a, b);repeatwriteln(power(a, 2) : 8, power(a, 3) : 8);a:= a + 1;until a = b + 1;end.
Автор:
andy955Добавить свой ответ
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть