Задание 2, 1:
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
<span>end.
2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
<span>end.
</span>
3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.
4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, </span><span>z</span>);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
Пусть меня кто-то исправит, но у меня получается 10000001110110