паскаль 10 класс

[павел евгеньевик]

Является ли заданное с клавиатуры число полным квадратом натурального числа?(здесь нужно использовать trung(y))Народ помогите а то я уже 2 часа голову ломаю.не могу понять как)

[Poma][a]

trung(y)

Нет такой функции.

Народ

Народ в деревне, а тут господа (и я)

t := Trunc (Sqrt(n));
if t*t = n then
     WriteLn ('YES')
else
     WriteLn ('NO')

[TinMan]

Ромаха, стремись к лаконичности )

writeln(sqr(sqrt(n))=n)

[Poma][a]

Ромаха, стремись к лаконичности )

Пасиб, будем )
Ток единственное :

writeln(sqr(Trunc(sqrt(n)))=n)

[TinMan]

Сообщение от Poma][a

Ток единственное :

А, ну да! ))
Кстати, проверим, разрешит ли мне здешний маниакально-параноидальный интерфейс "накрутить" тебе рейтинг.. )))

Разрешил!!!!!!!!!!! )))))))

[Poma][a]

Кстати, проверим, разрешит ли мне здешний маниакально-параноидальный интерфейс "накрутить" тебе рейтинг.. )))

Пасиб) Комментарий "Ура!Получилось" порадовал

[павел евгеньевик]

Спасибо огромнейшее!!!!

[павел евгеньевик]

Введите с клавиатуры 3 числа:А,В и С.Если все они чётные,то найдите и выведите их сумму на экран.Если все они нечётные,и А>В и В>С то определите и выведите значение наибольшего и наименьшего числа,иначе выведите их без изменения.Помогайте!!!

[Peppy]

Сообщение от павел евгеньевик

Введите с клавиатуры 3 числа:А,В и С.Если все они чётные,то найдите и выведите их сумму на экран.Если все они нечётные,и А>В и В>С то определите и выведите значение наибольшего и наименьшего числа,иначе выведите их без изменения.Помогайте!!!

program ABC;
var a,b,c:integer;
begin
writeln('Enter three number: ');
readln(a,b,c);
if (a mod 2=0)and(b mod 2=0)and(c mod 2=0) then begin
writeln('Summa = ',a+b+c);
end
else
if (a mod 2<>0)and(b mod 2<>0)and(c mod 2<>0) then begin
if (a>b)and(b>c) then
writeln('Max = ',a,#13#10,'Min = ',c);
else writeln(a,' ',b,' ',c);
end
else
writeln(a,' ',b,' ',c );
readln;
end.