Впаскале нужно решить 1 вводятся три разных числа. найти, какое из них является средним (больше одного, но меньше другого). 2. даны катеты прямоугольного треугольника. найти его гипотенузу и площадь.
Uses crt; {модуль CRT, для красоты} var x,y:integer; {описание переменных} begin write('Введи трехзначное число:'); {вывод текста на экран} readln(x); {Чтение данных} write('Введи любую цифру:'); {Вывод текста на экран} readln(y); { Чтение данных } if (x<100) or (x>999) or (y<0) or (y>9) {проверка условий} then writeln('ERROR!') {Вывод текста, если условие соблюдено} else {Вариант, если в начале все числа введено верно} if (y=x div 100) or (y=x mod 10) or (y=x mod 100 div 10) then writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено} else writeln ('Такой цифры нет'); { Вывод текста, если условие не соблюдено } end.
Pascal: var n,m:longint; f:boolean; begin write ('Decimal: '); readln(n); write ('Number: '); readln (m); f:=true; while (n<>0) do begin if ((n mod 10)=m) then begin f:=true; break; end; n:=n div 10; end; if f then writeln ('YES!') else writeln ('NO'); readln; end.
C++: #include <iostream> using namespace std;
int main() { int n,m; bool f = false; cout <<"Decimal: "; cin >>n; cout <<"Number: "; cin >>m; while (n!=0) { if ((n%10)==m) { f = true; break; } n/=10; } if (f) cout <<"YES!" <<endl; else cout <<"NO!" <<endl; return 0; }
1)
var
x1, x2, x3, sum:integer;
begin
read(x1, x2 , x3);
sum:= x1 + x2 + x3;
sum:= sum - max(max(x1,x2),x3) - min(min(x1,x2),x3);
write(sum);
end.
2)
var
a, b :integer;
p, hyp:real;
begin
read(a, b);
hyp := sqrt(a*a + b*b);
p := (a*b*0.5);
writeln('Гипотенуза :', hyp , ' Площадь: ', p);
end.
Объяснение: