35
с инфой
надо вычислить в паскале квадрат и куб от 1 до 10 а потом вывести
условия
1,не использовать crt выводить только в окне вывода
2, не типо такого
var
a : array [1..2, 1..10] of integer;
i, j : integer;
begin
writeln ('число куб квадрат');
for j : = 1 to 10 do
begin
a[1,j] : = sqr(j);
a[2,j] : = sqr(j) * j
end;
for i : = 1 to 2 do
begin
for j : = 1 to 10 do write(a[i,j]: 5);
writeln
end;
readln
end.
3, число квадрат куб
1 1 1
2 4 6
и тд
4, типа такого не надо write (' число квадрат куб');
writeln ('1 1 1 ')
надо чтоб находило и выводило
Это растение в народе ласково называют красавицей-невестой. Это связано с тем, что весной черемуха одевает праздничное белое одеяние и превращается в настоящее чудо.
Черемуха - это кустарник из семейства розоцветных. Ее ствол полностью покрыт корой темно-серого цвета, на котором встречаются ржаво-бурые пятна. Листья у черемухи обратнояйцевидной формы. Цветки хоть и небольшие, но очень пахучие. Они белые и собраны в очень красивую кисть.
Черемуха является санитаром леса. У цветков и листьев есть специальный аромат, поэтому и обладает фитонцидным свойством. Это и сделало дерево особенным, так как это наделило его способностью убивать насекомых и микробов. Дерево беспощадно даже для комаров и клещей.
Про черемуху написано много стихов и песен.