Program Wybor;
uses Crt;
var y, a, b :real;
begin
a:=226.3;
b:=931.3;
if (a-b)<(10*ln(1/3.1415926) ) then y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x))
else y:=sqrt(b*sin(x)/cos(x))-exp(3*x);
WriteLn('y=', y:6:3);
ReadLn;
end.
Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква
1)19<468
2)5<7
Вот возьми пригодиться numsys . ru
Read(a);
read(b);
if (a mod 10) = (b mod 10) then writeln('Верно') eslse
writeln('Неверно');