Имеется стопка квадратных плиток разных размеров. Сторона квадрата - случайное целое число из диапазона от 0 до 6 (использовать функцию random). Написать программу, которая вычисляет площадь каждого квадрата. Программа заканчивается, если сторона квадрата равна 0. Использовать функцию (While условие Do оператор "Условный цикл с предусловием") Написать программу в Pascal.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 var a:integer; begin Randomize; a:=Random(7); while a>0 do begin Writeln('a=',a,', s=',a*a); a:=Random(7) end end. Тестовое решение: a=5, s=25 a=1, s=1 a=6, s=36 a=4, s=16 a=3, s=9
То есть, если сторона равна 0, то сразу прекращается цикл и программа завершаеся?
Да, конечно, это же следует из условия.
Огромное спасибо. А то вроде все сделал, но сделал не правильное условие и рандом не писал 2 раза. И все пошло на перекосяа перекосяк. Огромное спасибо еще раз
Можно было и один раз, но тогда будет лишняя проверка врутри цикла.
Вот я ее и делал. И запутался...
Не страшно, со временем разберетесь.