SASHA123741852

11.01.2020 17:51

Информатика

Есть ответ 👍

Для того чтобы опознать своих, математики используют числовые пароли. Услышав число-пароль, математик должен возвести его в квадрат и сказать в ответ первую цифры дробной части полученного числа. Напишите программу, которая по полученному паролю (вещественному числу) вычисляет число-ответ. Пример:

Введите пароль: 1.92

ответ: 6

(потому что 1,922 = 3, 6 864…, первая цифра дробной части – 6).

В Pascal. Желательно, чтоб я просто скопировал, вставил в программу и она работала.

151

483

Посмотреть ответы 2

Ответы на вопрос:

HappyMen11

Информатика

4,8(40 оценок)

чоо я не понял, сам не знаю

20051207маша

Информатика

4,7(80 оценок)

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

2) являются ли 2 числа взаимно обратными

3) ну и сложная нахождение наименьшего общего кратного 2ух чисел.

program n1;

uses crt;

var a,b: real;

begin

clrscr;

write('введите число a: ');

readln(a);

write('введите число b: ');

readln(b);

if (a=b) then writeln('числа равны ');

if (a> b) then writeln ('число а больше ')

else writeln ('число b больше ');

readkey;

end.

program n2;

uses crt;

var a,b: real;

begin

clrscr;

write('введите число a: ');

readln(a);

write('введите число b: ');

readln(b);

if (a+b)=0 then writeln('числа взаимно обратны ! ')

else writeln('числа не являются взаимно обратными ! ');

readkey;

end.

program n3; uses crt; var n,m,res,nok: integer; function evklid( a, b: longint): longint; begin while (a < > 0) and (b < > 0) do if a > = b then a: = a mod b else b: = b mod a; evklid: = a + b; end; begin clrscr; writeln('введите a и b'); readln(m, n); res: = (evklid(n,m)); nok: = (m*n) div res; writeln('nok=',nok); readkey; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.