Нужно умножить стороны треугольника
1) Из матем :
Число́ --важнейшее математическое понятие. Возникнув в простейшем виде ещё в первобытном обществе, понятие Ч. изменялось на протяжении веков, постепенно обогащаясь содержанием по мере расширения сферы человеческой деятельности и связанного с ним расширения круга вопросов, требовавшего количеств. описания и исследования. На первых ступенях развития понятие Ч. определялось потребностями счёта и измерения, возникавшими в непосредственной практической деятельности человека. Затем Ч. становится основным понятием математики, и дальнейшее развитие понятия Ч. определяется потребностями этой науки.
2)Русский
Понятие о лексических синонимах
Если анализ семантической структуры слова наглядно показывает степень самостоятельности значения слова и ее пределы, то есть характеризует системные отношения на уровне одного слова, то синонимия является одним из ярких и убедительных доказательств системных отношений в лексике в сфере группы близких по значению слов.
3)ГЕОГРАФ:
Степи--Под именем С. подразумевают более или менее ровные сухие безлесные пространства, покрытые обильной травянистой растительностью. Пространства ровные и безлесные, но влажные, не называются С.; они образуют или болотистые луга, или, на дальнем севере, — тундры. Пространства с очень редкой растительностью, которая не образует
травянистого покрова, но состоит из отдельных, далеко друг от друга разбросанных кустиков, называются пустынями.
Я сто лет не делал блок-схемы, но должно быть правильно.
Я не проверял работает ли программа правильно, но она работает ошибки не выдает. Если что не правильно сможешь подправить.
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
1
2
3
4
5
6
7
8
9
<span>uses
Arrays;
begin
Randomize;
var a := CreateRandomIntegerArray(ReadLnInteger('Размер массива: n='), -10, 100);
WriteLn('Создан массив случайных чисел: '); a.Writeln(' ');
for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0;
WriteLn('произведена замена: '); a.Writeln(' ');
end.</span>
Да,числа : 3,10,17,24,31,38,45,52,59,66,73,80,87,94
P.S. Pascal ABC
var a:integer;
begin
for a:=1 to 100 do
begin
if (a mod 7 =3)then writeln(a);
end;
<span>end.</span>