составьте программку паскаль для нахождениявсех счастливых автобусных билетов чтобы из низ

Составьте программу паскаль для нахождениявсех счастливых автобусных билетов чтоб из низ извлекался квадратный корень

Задать свой вопрос
1 ответ

Программа инспектирует, извлекается ли из введеного числа корень (без дробной доли)

program bilet;
var
a:longint;
b:real;
begin
writeln('vvrdite nomer');
readln(a);
b:=sqrt(a);
if b*b=a then writeln('schastlivuy')
else writeln('uvyu');
readln;
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт