Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Срставьте программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.

5-9 класс

Dmytro456 22 мая 2014 г., 22:44:56 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
апасность
22 мая 2014 г., 23:31:11 (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.

Ответить

Другие вопросы из категории

Введите с клавиатуры целое число в диапазоне 1-999.

а) определите количество знаков в числе;
б) определите чётность числа;
в) выведите описание числа ,наприме нечётное одназначное число чётное двухзначное число

Читайте также

Pascal abc

Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.

Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора

результат

2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат

1) составьте программу заполнения элементов массива [1..10 ] случайнымии целыми числами на отрезке [ 0;35 ] и вывода на экран нечетных элементов и

кратных числу 3.

2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива



Вы находитесь на странице вопроса "Срставьте программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.