В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Bars1995
Bars1995
10.04.2023 01:33 •  Информатика

Вводится натуральное число. определить, является ли оно полным квадратом. pascal

Показать ответ
Ответ:
khamraevmowfdcs
khamraevmowfdcs
22.09.2020 12:19
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var n:=ReadInteger('n=');
  var k:=Trunc(sqrt(n));
  if sqr(k)=n then Writeln('Это полный квадрат числа ',k)
  else Writeln('Это неполный квадрат')
end.

Тестовые запуски:
n= 202293729
Это полный квадрат числа 14223

n= 202293728
Это неполный квадрат

n= 202293730
Это неполный квадрат
0,0(0 оценок)
Ответ:
Olivka09
Olivka09
22.09.2020 12:19
Var  n,i,o: integer;
begin 
read(n); 
while i<=n do Begin   
if sqr(i) = n then Begin write('Да, число ',n,' является квадратом чилса ',i); o:=1; end;    i:=i+1; 
End; 
if o<>1 then write('Это число не полный квадрат');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота