Напечатать минимальное четное число, большее введенного n, которое является квадратом. (pascal)

163

446

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

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

alin42

Информатика

4,6(54 оценок)

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin var n: =readinteger('n='); var m: =trunc(sqrt(n)); if odd(m) then inc(m); while sqr(m)< =n do m+=2; writeln(sqr(m),' = ',m,' * ',m) end. тестовое решение: n= 4563242 4571044 = 2138 * 2138

89286666666

Информатика

4,6(53 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =matrrandom(10,5,10,99); a.println(3); writeln(3*a.colcount*'-'); var b: =a.rows.selectmany(x-> x).where(x-> x mod 3=0); write('[',b.count,']='); b.println end. пример 67 37 13 90 96 58 43 59 42 11 85 54 94 13 33 20 97 13 65 74 31 15 64 36 32 21 37 34 38 95 79 97 95 90 81 24 40 97 17 91 69 10 63 51 33 54 83 83 93 99 [18]=90 96 42 54 33 15 36 21 90 81 24 69 63 51 33 54 93 99