8 класс.информатика.напишите пожалуйста.очень срочно надо!№1.Дано целое число,если оно нечётное и при этом не находится в [10;20],то вывести на экран
5-9 класс
|
квадрат этого числа.№2.определить впишется ли квадрат в круг.
Делал на 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)
then
begin
n:=n*n;
writeln ('Квадрат этого числа равен: ',n);
end
else
writeln ('Число не подходит условию задачи');
readkey;
end.
Другие вопросы из категории
0010 0110 1011 0111 0000 1111 1011 0110
сервером?
3)Какого типа локальная сеть установлена в вашем компьютерном классе?Какие функции она выполняет?
4)Узнайте названия фирм,являющихся поставщиками сетевых услуг в вашей местности.
Читайте также
Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое.
(В паскале,по такому типу:
Var
Begin
WriteLn
End)
Буду очень благодарна!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.