Program df;
uses crt;
var a,b,c,max,sum:integer;
begin
sum:=0;
max:=0;
writeln('введите числа а,b,c');
readln(a,b,c);
if (a>0)or(b>0)or(c>0) then sum:=a+b+c else if (a>b)and(a>c) then max:=a else if (b>c) then max:=b else max:=c;
if sum=0 then wrteln('Числа отрицательные большее из них ',max) else writeln('сумма чисел ',sum); end.
Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))
End Sub
Спортивный инвентарь, советские тренажеры - выбери, как больше нравится
1. Основная трудность при чтении египетских иероглифов в том, что большинство египтян не имели понимания древнегреческой системы иероглифов.
2. Египтяне использовали значки-определители для того, чтобы лучше было читать. Значки-определители служили для звучаний слов.
3. Потому что само чтение или писание древнегреческих иероглифов было сложно , так как в то время образования было ужасным.
4. Первым, кому удалось расшифровать египетские иероглифы, был французский учёный, Жан-Франсуа Шампольон(1790-1832). Он составил полный список иероглифов и их греческих эквивалентов, создав тем самым основу для перевода всех египетских иероглифических текстов.
5. Основным носителем информации в египте являлись глиняные таблички, папирусные свитки и наскальные надписи.
6. Стебли растения разрезали на полосы, которые переплетали между собой, прессовали и высушивали на солнце.
7. Хранили в глиняных кувшинах и шкатулках.