1.
var x,y:real;
begin
write('x = ');
readln(x);
if x>0
then begin y:=sin(x); writeln('y = ',y); end
else writeln('При x<0 функцию не вычисляем почему-то');
end.
Пример:
x = 1.8
y = 0.973847630878195
2.
var t1,t2:integer; v1,v2:real;
begin
write('t1 = '); readln(t1);
write('t2 = '); readln(t2);
v1:=20/t1; v2:=10/t2;
writeln('v1 = ',v1,' v2 = ',v2);
if v1 > v2
then writeln('Скорость до обеда была выше')
else writeln('Скорость после обеда была выше');
end.
Пример:
t1 = 5
t2 = 4
v1 = 4 v2 = 2.5
Скорость до обеда была выше
3.
var a,k1,k2,k3,k4:integer;
begin
write('a = '); readln(a);
k1:=a div 1000;
k2:=a div 100 mod 10;
k3:=a mod 100 div 10;
k4:=a mod 10;
if (k1<>k2)and(k1<>k3)and(k1<>k4)and(k2<>k3)and(k2<>k4)and(k3<>k4)
then writeln('Все цифры числа различны')
else writeln('В числе есть повторяющиеся цифры');
end.
Пример:
a = 5135
В числе есть повторяющиеся цифры
Ответ: 9864101
Вариант на Excel
На рисунке большой круг включает в себя два маленьких. Так как города в Англии и столичные европейские города все являются европейскими городами, то множество а включает в себя множества б и в, большой круг - множество а. Его элементы: Манчестер, Ливерпуль, Лондон, Москва, Париж, Мадрид, Венеция, Брест, а также многие не указанные на рисунке города, например, Кардифф, Женева, Милан.
Оставшиеся два круга представляют города в Англии и европейские столицы. Так как в множество, отвечающее левому кругу, входят Манчестер, Ливерпуль и Лондон, то это города Англии. В это множество входят и другие города, например, Кардифф.
Правому кругу, в котором записаны Лондон, Москва, Париж и Мадрид, остаётся только множество европейских столиц. В это множество входит также Женева и другие города.
B=4
a=3
b=<span>7-2*a-b=7-2*3-4=7-6-4=-3
a=b/3-a=-3/3-3=-1-3=-4
ответ:a=-4
b=-3</span>
Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then write ('-');
while a<>0 do
begin
write (abs (a mod 10));
a:=a div 10
end
end.