Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5
,глаза,уши,нос,вообщем органы чувств.
Ответ: Благодаря тому, что древнеперсидская клинопись относительно проста, а персидский язык клинописных памятников был известен, персидская версия знаменитой Бехистунской надписи смогла стать исходным пунктом расшифровки более древних и более сложных клинописных систем Как уже было отмечено, Г. Гротефенд, расшифровавший в 1802 г. древнеперсидскую клинопись, привлек две надписи из Персеполя (надписи Дария I и Ксеркса I), известные в то время в Европе по прорисовкам, сделанным К. Нибуром. Впоследствии персидский текст трехязычной Бехистунской надписи Дария I помог Г. Раулинсону и другим расшифровке вавилонской клинописи.— Прим. ред..
Объяснение:
Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.
var
x,y:integer;
z:real;
begin
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение y: ');
readln(y);
z:=x+y/x+16-y*x-24/17+x;
writeln('z = ',z);
end.