Информатика, 01.08.2019 02:10, rim2891

Написать программу в паскале вводим число, проверить извлекается из него корень?

Всего ответов: 2

Ответы

Ответ разместил: iakatya

Var a,b:integer;
begin
write('a = ');
readln(a);
b:=round(sqrt(a));
if b*b=a
then writeln('Yes, ',b,' * ',b,' = ',a)
else writeln('No');
end.

Пример 1:
a = 289
Yes, 17 * 17 = 289

Пример 2:
a = 250
No

Ответ разместил: denyavika

Гарантируется правильная работа программы при вводе натуральных чисел, не превышающих 9 223 372 030 926 249 001

var
i,n,m:int64;
begin
Write('Вводите: ');
Read(m);
n:=0;
for i:=1 to m div 2 do
    begin
      n:=n+2*i-1;
      if (n>=m) then break
    end;
if n=m then Writeln('Кв.корень(',m,')=',i)
else Writeln('Кв.корень(',m,') не является целочисленным')
end.

Примеры работы программы

Вводите: 255240500157504
Кв.корень(255240500157504)=15976248

Вводите: 225
Кв.корень(225)=15

Вводите: 56846356333463
Кв.корень(56846356333463) не является целочисленным

Вводите: 9223372030926249001
Кв.корень(9223372030926249001)=3037000499

Ответ разместил: Гость

Х1*(Х2+Х3)*Х1+Х2+Х1*Х3

1) X1*X1=X1 (закон повторения). Имеем:

Х1*(Х2+Х3)+Х2+Х1*Х3

2) Раскрываем скобки:

Х1*Х2+Х1*Х3+Х2+Х1*Х3

3) X1*X3+X1*X3=X1*X3 (a+a=a - тот же закон повторения, только для сложения). Применяем и имеем:

Х1*Х2+Х1*Х3+Х2

4) Х1*Х2+Х2=X2 (правило склеивания). Имеем:

Х2+Х1*Х3

Решено. Все законы нетрудно проверить подставляя 0 или 1

Ответ разместил: Гость

S - площадь кольца
Взято число Пи, равное 3,14.
Язык программирования: Паскаль

var
S, r1, r2 : real;
begin
readln (r1);
readln (r2);
S := 3.14 * (SQR(r1) - SQR(r2));;
writeln (S);
end.

Другие вопросы по Информатике

Информатика, 26.02.2019 23:30, Nickky

Вопрос выписать пять европейских государств и их столицы в алфовитном порядке

Ответов: 3

Посмотреть

Информатика, 02.03.2019 03:50, sashka4erepashka

Сосуды цилиндрической формы (их 6) заполнены до краев жидкостью плотностью d=1200 кг/м3 составьте программу, которая вычисляет суммарную массу жидкости требуемые исходные данные (радиус сосуда r, высота столба жидкости h)
вводятся массив с клавиатуры, результат выводится на экран. язык паскаль abc.

Ответов: 3

Посмотреть

Информатика, 04.03.2019 10:50, Sladkayaaaaaa

Укажите, как выделить следующий фрагмент (соеденить стрелками). отдельное слово 1)подвести указатель мыши к левой границе строки так, чтобы он принял виднаклонной стрелки. 2)выполнить щелчок левой кнопкой мыши. строка текста
1)подвести указатель мыши к левой границе текста так, чтобы он принял вид наклонной стрелки. 2)выполнить трайной щелчок левой кнопки мыши абзац 1)навести указатель мыши на нужное слово. 2)выполнить двойной щелчок левой кнопки
мыши. весь текст 1)установить указатель мыши над первым симвалом выделяемого фрагментом. 2)нажмите левою кнопку мыши и, не отпуская её, преместить мышь в конец выделяемого фрагмента. произвольный участок текста 1)подвести
указатель мыши к левой границе абзатца так, чтобы он принял вид наклонной стрелки. 2)выполнить двойной щелчок левой кнопки мыши.

Ответов: 3

Посмотреть

Информатика, 17.03.2020 11:30, Angelina000477

НОМЕР 2 или 3!! Даю 12

Ответов: 3

Посмотреть

Информатика, 07.03.2019 13:30, tanyushalyubim

Какое расширение должен иметь файл с исходным текстом программы на паскале? * pas bas bak c

Ответов: 4

Посмотреть

Информатика, 17.03.2020 12:30, aalenka592

Поиогите 7 класс информатика