Имеется стопка квадратных плиток разных размеров. сторона квадрата - случайное целое число из диапазона от 0 до 6 (использовать функцию random). написать программу, которая вычисляет площадь каждого квадрата. программа заканчивается, если сторона квадрата равна 0. использовать функцию (while условие do оператор "условный цикл с предусловием") написать программу в pascal.
neeestii
1
21.07.2019 09:10
0
Другие вопросы по теме Информатика
eugenetroyan
11.07.2019 18:00
Amdrek
11.07.2019 18:00
tetyana5
09.09.2019 04:30
ауе60
09.09.2019 04:20
livadon
19.05.2020 11:49
21rudik21
03.11.2020 08:15
Мила098
03.11.2020 08:22
Ananasik3333
03.11.2020 08:22
Популярные вопросы
- ВРЕМЯ НА ЗАДАНИЕ: 05:50 ТЕКСТ ЗАДАНИЯНайдите корень уравнения 25,5y -4,5(6y +11) =...
2 - До какого возраста падает зрение у девочек...
3 - Ask and3 2.21 Complete the conversation with theindefinite pronouns in...
3 - Які речення можуть бути до схеми ○або○...
1 - найдите соотношения: между какими из предложенных веществ будут протекать...
2 - Write the sentences in the present simple passive form. 6. The main character...
1 - 1.Что является главным свойством мышечного волокна? 2.Какие периоды выделяют...
3 - Знайдіть значення степеня ...
3 - Choose ONE of the topics and write an essay. Topic 1. Environmental problems...
2 - Найди в тексте выразительные средства. Я человеком стану, и, если буду...
3
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