Срставьте программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.
5-9 класс
|
var
a, n :integer;
begin
write ('введите число ');
readln(a);
if a>0 then write('ошибка. число не отрицательное ') else
begin
if a<0 then n:=a*a;
writeln ('квадрат числа ', n);
end;
end.
Другие вопросы из категории
использовал мальчик?
а) определите количество знаков в числе;
б) определите чётность числа;
в) выведите описание числа ,наприме нечётное одназначное число чётное двухзначное число
И как правильно записать задачу?
Читайте также
Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
сообщение:"Принадлежит" либо "Не принадлежит".