#include <iostream>
using namespace std;
double square(double x) {
return x*x;
}
double maxi(double x, double y) {
if (x>y)
return x;
else
return y;
}
int main() {
double a1,a2,s1,s2;
cin >> a1 >> a2;
cout << "s=" << maxi(square(a1),square(a2)) << endl;
return 0;
}
<em>Приведу пример на Паскале.</em>
Var x,y:integer;
Begin
x:=5;
y:=3;
If x>y Then
x:x-y
Else
x:=x+y;
writeln(x);
end.
<em>Исход программы зависит от заданных переменных.</em>
А в чём проблема?деинсталятором в безопасном режиме удаляй и всё,на работе вебки после удаления этой проги не отразится
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.