Имеется стопка квадратных плиток разных размеров. Сторона квадрата - случайное целое число из диапазона от 0 до 6 (использовать функцию random). Написать программу, которая вычисляет площадь каждого квадрата. Программа заканчивается, если сторона квадрата равна 0. Использовать функцию (While условие Do оператор "Условный цикл с предусловием") Написать программу в Pascal.

Да, конечно, это же следует из условия.

Огромное спасибо. А то вроде все сделал, но сделал не правильное условие и рандом не писал 2 раза. И все пошло на перекосяа перекосяк. Огромное спасибо еще раз

Можно было и один раз, но тогда будет лишняя проверка врутри цикла.

Вот я ее и делал. И запутался...

Не страшно, со временем разберетесь.

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016var  a:integer;begin  Randomize;  a:=Random(7);  while a>0 do begin    Writeln('a=',a,', s=',a*a);    a:=Random(7)    endend.Тестовое решение:a=5, s=25a=1, s=1a=6, s=36a=4, s=16a=3, s=9