Составить АЛГ:а) Дано числа x,y. найти максимальное из 2-х чисел, из 3-х чисел.

Знания

Информатика

1 ответ:

Brutaiewners4 года назад

0 0

2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.

3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.

Читайте также

Какими способамм можно выполнить команду «Вырезать»

сергеева светлана...

Вырезать лист, вырезать контур, вырезать фигуру,

0 0

4 года назад

Ребят помогите очень срочно !!!! Мне завтра её сдавать ,а у меня не получается. Я люблю информатику и обычно сам всё решаю ,но т

глг [108]

<span>a,b:integer;
d:string[45];
begin
SetConsoleOutputCP(1251);
writeln('Введите число в диапазоне от 1 дo 100');
write('a=');
readln(a);
b:=a mod 10;
a:=a div 10;
case b of
0: d:='';
1: d:='I';
2: d:='II';
3: d:='III';
4: d:='IV';
5: d:='V';
6: d:='VI';
7: d:='VII';
8: d:='VIII';
9: d:='IX';
end;
b:=a mod 10;
a:=a div 10;
case b of
0: d:=''+d;
1: d:='X'+d;
2: d:='XX'+d;
3: d:='XXX'+d;
4: d:='XL'+d;
5: d:='L'+d;
6: d:='LX'+d;
7: d:='LXX'+d;
8: d:='LXXX'+d;
9: d:='XC'+d;
end;
b:=a mod 10;
a:= a div 10;
case b of
0: d:=''+d;
1: d:='C'+d;
end;
writeln('B Римской системе счисления ' ,d);
readln;
end.</span><span> </span>

0 0

4 года назад

Наскальный рисунок это какой носитель информации?

дашенька1234 [4]

МНЕ кажется что наскальный рисунок это древнейшие информационные носители культуры.

0 0

4 года назад

Прочитать ещё 2 ответа

Распишите. 1.определите значение целочисленных переменных x и y после выполнения фрагмента программы х := 19; у := 3; z := у*2

усик [21]

Var
    x, y, z: integer ;

begin

    x := 19;
    y := 3;
    z := y * 2;
    y := x mod y;
    x := x - z;
    y := y + z;
    writeln('x = ', x, ', y = ', y, ', z = ', z);


end.

Вывод
x = 13, y = 7, z = 6

0 0

4 года назад

Свойства рабочего стола

Dr-Ktov

1. Оформление рабочего стола.2 ярлыки, папки , файлы расположенные на робоч столе .3 дата, изготовление раб стола.4имя пользователя , работающего с РС

0 0

4 года назад