Не могу написать программу на языке паскаль. даны три целых двузначных числа. из наибольшего из них вычесть наименьшее и сравнить результат с оставшимся числом. если полученное число будет больше вывести yes в противном случае no.
Var a,b,c,max,mid,min,t:integer; begin Writeln('Введите через пробел три целых двухзначных числа'); Readln(a,b,c); if a>b then begin max:=a; min:=b end else begin max:=b; min:=a end; if max<c then begin mid:=max; max:=c end else mid:=c; if min>mid then begin t:=mid; mid:=min; min:=t end; if (max-min)>mid then Writeln('YES') else Writeln('NO') end.
Тестовое решение: Введите через пробел три целых двухзначных числа 37 93 74 NO
1) перекодування даних, яке проводиться з метою зменшення їх об'єму, розміру, обсягу. 2) це процес стискування інформації (файлів, груп файлів, каталогів, цілих дисків) з метою економії дикого простору та захисту її від несанкціонованого доступу. 3) процес відновлення файлів з архіву в тому самому вигляді, який вони мали до упакування в архів 4) результат архівування 5) сучасні програмні засоби для створення та обслуговування архівів. 6) це архіви, до яких приєднано виконуваний модуль, що дозволяє витягати (розпаковувати) файли простим запуском архіву як звичайної програми (без програми-архіватора). 7)це архіви, що складаються з декількох частин (файлів), які називають томами 8)ZIP; RAR; RLE; CAB; GZIP, TAR
Program srednee; var a, b, c:integer; sa:real; begin write ('Введите а='); readln (a); write ('Введите b='); readln (b); write ('Введите c='); readln (c); if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then begin a:= sqr(a); writeln ('Квадрат а=', a); b:= sqr(b); writeln ('Квадрат b=', b); c:= sqr(c); writeln ('Квадрат c=', c); end else begin if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then begin a:= a+10; writeln ('а+10=', a); b:= b+10; writeln ('b+10=', b); c:= c+10; writeln ('c+10=', c); end else begin sa:=(a+b+c)/3; write ('Среднее арифметическое =', sa); end end end.
a,b,c,max,mid,min,t:integer;
begin
Writeln('Введите через пробел три целых двухзначных числа');
Readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if max<c then begin mid:=max; max:=c end
else mid:=c;
if min>mid then begin t:=mid; mid:=min; min:=t end;
if (max-min)>mid then Writeln('YES')
else Writeln('NO')
end.
Тестовое решение:
Введите через пробел три целых двухзначных числа
37 93 74
NO