Программа на паскале: "даны длина и ширина прямоугольников. является ли он квадратом? "

150

245

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

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

Andriuy2003

Информатика

4,5(25 оценок)

program n_5; var a, b: real; begin write ('введите длину прямоугольника - '); readln (a); write ('введите ширину прямоугольника- '); readln (b); if a=b then write ('данный прямоугольник является квадратом') else write ('данный прямоугольник не является квадратом'); end.

Politik2000

Информатика

4,4(18 оценок)

Вариант номер 1: program c1ba; var a: byte; p: real; begin p: =10; a: =1; repeat begin p: =p+(p/10); a: =a+1; end; until p> =20; writeln('a=',a); end.вариант номер 2: program c1ba; var a: byte; p: real; beginp: =10; a: =1; while p< =20 do beginp: =p+(p/10); a: =a+1; end; writeln('a=',a); end.