1. Информатика
  2. Дано натуральное число,

Дано натуральное число, если оно больше 5, то возведите в квадрат, если нет, то пусть на экране появится надпись ошибка ввода

Rytdg Rytdg    3   19.09.2019 18:00    1

Ответы
nikolaydanilov7 nikolaydanilov7  08.10.2020 02:44
var a:integer;
begin
write('a = ');
readln(a);
if a>5 then writeln(a,'^2 = ',a*a)
else writeln('Ошибка ввода');
end.

Пример:
a = 9
9^2 = 81
ПОКАЗАТЬ ОТВЕТЫ
Ferencvik Ferencvik  08.10.2020 02:44
Var 
 a: integer;

begin
  write('Введите число: ');
  read(a);
  if(a > 5) then a := a * a
  else write('ошибка ввода');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
hgjgz8s8tztcv hgjgz8s8tztcv  26.09.2019 06:10
Черно-белое (без градаций серого) графическое изображение имеет размер 7×7 точек. какой объём памяти займёт это изображение?...
Sashafedorova Sashafedorova  26.09.2019 06:10
Значение арифметического выражения 36^12+6^36-6 - записали в системе счисления с основанием 6. сколько цифр 5 содержится в этой записи...
zaaz123 zaaz123  26.09.2019 06:10
Решить в pascal s=sinx+sin2x+sin3x++sin7x...
Spasatel222 Spasatel222  26.09.2019 06:10
Что понимаетсядет под символов www?...
20лиза07 20лиза07  12.06.2019 12:35
Вкорневом каталоге диска с: \ имеются два каталога 1-го уровня games и text, а в каталоге games один каталог 2-го уровня chess. файл proba.txt находиться в каталоге chess....
Vlada2005Bee Vlada2005Bee  12.06.2019 12:33
Процедура обработки строки состоит из двух последовательных операций: заменить в строке все символы a на подстроку ab заменить в строке все подстроки bb на символ с процедура...
arutik5 arutik5  12.06.2019 12:27
Даны 4 целых числа, записанных в восьмеричной системе счисления: 261, 263, 265, 267. сколько среди них чисел, которые меньше чем b6 (16 системе) с подробным объяснением,...
olga88888888888888 olga88888888888888  12.06.2019 12:20
Дано число a. вычислить a15, используя две переменные и пять операций умножения. для этого последовательно находить a2, a3, a5, a10, a15. вывести все найденные степени числа...
nastalove22 nastalove22  14.01.2022 16:03
Электронный адрес почтового ящика Мистер Фокс создал на почтовом сервере с доменным именем foxic.ru почтовый ящик с именем mister_Fox. Запишите электронный адрес почтового...
vualada vualada  14.01.2022 16:27
Какое из утверждений противоречит информации, показанной на диаграммах? Подчеркните его. Среди призеров по математике или географии есть хотя бы один житель Тулы. Среди призеров...

Популярные вопросы