Написать программу выбора наибольшего значения из трех различных чисел.

👇

Ответ:

elya144

28.04.2023

Ну если это паскаль то тогда :
program a1;
var a,s,d,max : integer;
BEGIN
writeln('введите 3 числа');
readln(a,s,d);
max:=a;
if max<s then max:=s;
if max<d then max:=d;
writeln('max=',max);
end.

4,6(27 оценок)

Открыть все ответы

Ответ:

vasx

28.04.2023

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
type
Matrix=array[,] of integer;

procedure MatPrint(a:Matrix);
begin
var m:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to m do Write(a[i,j]:4);
    Writeln
    end
end;

function IsEqual(a:Matrix; col:integer):boolean;
begin
var s:=sign(a[0,col]);
for var i:=1 to Length(a,0)-1 do s+=sign(a[i,col]);
if (s=0) then Result:=(a[0,col]<>0)
else Result:=false
end;

procedure DeleteCol(var a:Matrix; col:integer);
begin
var n:=Length(a,0)-1;
var m:=Length(a,1)-1;
for var j:=col+1 to Length(a,1)-1 do
    for var i:=0 to n do a[i,j-1]:=a[i,j];
SetLength(a,n+1,m)
end;

begin
var n:=ReadInteger('Строк:');
var m:=ReadInteger('Столбцов:');
var a:=MatrixRandom(n,m,-99,99);
Writeln('Исходная матрица');
MatPrint(a);
for var j:=Length(a,1)-1 downto 0 do
    if IsEqual(a,j) then DeleteCol(a,j);
Writeln('Результирующая матрица');
MatPrint(a);
end.

Тестовое решение
Строк: 8
Столбцов: 10
Исходная матрица
-3 -82 -25 -22 65   1 79 -67 -64 -82
17 36 48 -32 51 11 43   9 -35   4
-10 -5 80 82 -24 66 -12 -58 50 -94
52 70 53 85 -32 -59 46 57 -84 -44
81 71 -55 37 46 -15 -61 25 22 -7
-49 98 -42 -18 -44 -97 -63 -7 -98 99
-86 37 -17 -69 -35 46 82 62 99 11
65 85 -7 -90 23 19 -50 -56 -64 91
Результирующая матрица
-82 -25 -22   1 -64
36 48 -32 11 -35
-5 80 82 66 50
70 53 85 -59 -84
71 -55 37 -15 22
98 -42 -18 -97 -98
37 -17 -69 46 99
85 -7 -90 19 -64

4,7(16 оценок)

Ответ:

сакура23

28.04.2023

Семейство маковых - Papaueraceae

Однолетнее травянистое растение до 100 - 120см высоты с крупными одиночными цветками, лепестки белого цвета с фиолетовым глазком. Стебель прямой. Листья крупные, яйцевидные. Плод - шаровидная или овально - продолговатая коробочка с семенами. Цветет в июне - августе, плоды созревают в августе - сентябре.

Размножаются семенами.

Используют в медицине зрелые(сухие) коробочки со стеблем до 40 см, собираемые в период созревания семян. Из мака приготавливают обезболивающие препараты и антиспазматическое средство.

Мак выращивается в СССР в Казахстане, Киргизии, на Украине и в Поволжье.

Маки представлены однолетними, двулетними и многолетними растениями. Зимостойкие, светолюбивые, они предпочитают легкие богатые гумусом почвы, содержащие известь. Цветут 2–3 дня. Однолетние маки, срезанные с чуть треснувшими бутонами и сразу опущенные в воду, цветут дольше, чем в грунте. Маки можно пересаживать; размножают семенами.

Наиболее распростаренные виды маков: мак полевой мак голубой мак голостебельный (сибирский) мак восточный и прицветковый

Мак полевой (самосейка) – растение однолетнее. За блестящие лепестки его называют также “шелковым маком”. Цветет с конца мая до осени.

Семена очень мелкие, поэтому их лучше предварительно намочить и смешать с песком в соотношении 1:10. Сажать гнездовым всходы прореживать. Чтобы продлить сроки цветения, можно сеять несколько раз в течение сезона с интервалами 20–30 дней.

Мак голубой – двулетнее растение, можно использовать как однолетник. Семена высевают в грунт весной, всходы прореживают.

Мак голостебельный, или сибирский – многолетнее растение, используется и как двулетник. Цветет с мая по сентябрь. Семена высаживают весной или в августе. При подзимнем посеве зацветает в мае следующего года.

Маки восточный и прицветковый – многолетние неприхотливые морозостойкие растения. Хорошо растут на открытом месте, легко переносят небольшое затемнение, но при переувлажнении могут загнивать корни.

Оба вида размножаются семенами, корневыми и зелеными черенками. Посев производят рано весной в парники или теплицы, пикируют в фазе 1–2-х настоящих листьев и сразу высаживают на постоянное место. На черенки используют боковые слабые побеги, которые осторожно срезают и высаживают на затененные, влажные гряды. Лучшее время пересадки – середина лета или 2-я половина августа.

4,6(100 оценок)

Это интересно:

Стиль-и-уход-за-собой

13.08.2021

Секреты получения и сохранения красивого загара в домашних условиях...

Дом-и-сад

02.09.2022

Как посадить дерево: советы от опытных садоводов...

Образование-и-коммуникации

15.03.2022

Квантовая физика: с чего начать, чтобы понять ее?...

Здоровье