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

Question

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

Answer 1

Делал на ABC Pascal:

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