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
В числе есть повторяющиеся цифры
Объем памяти=1 Гб=1 073 741 824 байт
Объем страницы=40*60=2400 байт(1 байт=8 бит)
Количество страниц в оперативной памяти=Объем памяти/Объем страницы=1 073 741 824/2400= 447392,4(округляем до целых 447393)
Высота стопки страниц в сантиметрах=Количество страниц/100=447393=4473,93 см=44,7393 метров
var a,b,k:integer;
begin
writeln('a, b, k:');
readln(a,b,k);
writeln('Каждый получит по ', (a+b) div (k+2),' гр.');
end.
Пример:
a, b, k:
15 20 4
Каждый получит по 5 гр.
Ответ:
в 1-3,во 2-3(16), в 3-7, 4-4
Как Я понимаю нужно узнать сколько существует различных способов расставить слова "Я" "люблю" "тебя".
На первое место в предложении мы может поставить одно из 3 слов. На второе 2 оставшихся (1 слово мы оставили на первом месте). На третье одно оставшиеся.
Получаем 3*2*1 = 6 То есть факториал 3.