profile
Опубликовано 5 лет назад по предмету Информатика от sajkdha

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

  1. Ответ
    Ответ дан Crazzyone

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

    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.

Самые новые вопросы