Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 19.01.2018
Сообщений: 11
1

Даны три произвольных числа, проверить, является ли хотя бы одно из этих чисел квадратом целого числа

15.02.2018, 18:05. Показов 2794. Ответов 2
Метки нет (Все метки)

Даны три произвольных числа A,B,C. Если хотя бы одно из этих чисел является квадратом целого числа, то вывести на экран сообщение "да", иначе- сообщение "нет". (желательно полную программу)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2018, 18:05
Ответы с готовыми решениями:

Даны три целых числа: А, В, С. Проверить истинность высказывания: «Хотя бы одно из чисел А, В, С положительное»
Даны три целых числа: А, В, С. Проверить истинность высказывания: «Хотя бы одно из чисел А, В, С...

Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью , то вычислить сумму этих чисел, в противном
Помогите доделать программу. Даны три числа a, b, c. Если хотя бы одно из них равно нулю с...

Даны три числа. Проверить, не является ли одно из них суммой двух других.
Пожалуйста помогите я не знаю как её сделать =((( Вводятся три произвольных числа. Проверить, не...

Проверить является ли число квадратом целого числа
такой вопрос: как сделать условие - если квадратный корень выражения целочисленный -> выполняется...

2
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5726 / 3436 / 2441
Регистрация: 22.11.2013
Сообщений: 9,650
Записей в блоге: 1
16.02.2018, 14:50 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
const NY: array [Boolean] of String[3] = ('нет','да');
var a, b, c: Integer;
begin
  ReadLn(a,b,c);
  WriteLn(NY[(Frac(SqRt(a))=0) or (Frac(SqRt(b))=0) or (Frac(SqRt(c))=0)]);
end.
Добавлено через 1 минуту
Если бы было достаточно TRUE или FALSE:
Pascal
1
2
3
4
5
var a, b, c: Integer;
begin
  ReadLn(a,b,c);
  WriteLn((Frac(SqRt(a))=0) or (Frac(SqRt(b))=0) or (Frac(SqRt(c))=0));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2018, 14:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Ровно одно из чисел A, B, C положительное»
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Ровно одно из чисел A, B, C...

Даны три дейтвительных числа a,b и c. Найти минимальное из этих чисел и вычислить сумму первого числа и найденного минимального числа.
Напишите программку (с коментариями если не трудно=) )) Даны три дейтвительных числа a,b и c....

Даны три целых числа: A, B, C. Проверить истинность высказы- вания: «Ровно одно из чисел A, B, C положительное»
Даны три целых числа: A, B, C. Проверить истинность высказы- вания: «Ровно одно из чисел A, B, C...

Как проверить является данное число квадратом целого числа?
Как проверить является данное число квадратом целого числа? подскажите какое необходимо написать...

Вводятся три произвольных числа А, В и С. Проверьте, не является ли одно из них суммой двух других
Срочно нужна помощь!!! ОООчень слабо шарю в Паскале... Напишите плиз задачку с кодом... ...

Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью
Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью e=0,01 , то вычислить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.