Имеется стопка квадратных плиток разных размеров. - вопрос №5242107 от GreenDiamonds 03.04.2021 22:26

Question

Информатика: Имеется стопка квадратных плиток разных размеров. сторона квадрата - случайное целое число из диапазона от 0 до 6 (использовать функцию random). написать программу, которая вычисляет площадь каждого квадрата. программа заканчивается, если сторона квадрата равна 0. использовать функцию (while условие do оператор условный цикл с предусловием ) написать программу в pascal.

GreenDiamonds · Answer

// 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