8 класс.информатика.напишите пожалуйста.очень срочно надо!1.Дано целое число,если оно

8 класс.информатика.напишите пожалуйста.очень безотлагательно надобно!1.Дано целое число,если оно нечётное и при этом не находится в [10;20],то вывести на экран квадрат этого числа.2.определить впишется ли квадрат в круг.

Задать свой вопрос
1 ответ

Делал на ABC Pascal:

program qq;
uses crt;
var n:integer;
begin
clrscr;
writeln ('Введите число: ');
readln (n);
if not (n mod 2=0) and (ngt;10) and (nlt;20)
then
begin
n:=n*n;
writeln ('Квадрат этого числа равен: ',n);
end
else
writeln ('Число не подходит условию задачки');
readkey;
end.

 

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт