Несколько задачек (Pascal)

[anz2034]

3)написать программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно)
исходные данные :- расстояние до дачи
--кол-во бензина, который потребляет бензин на 100 км пробега
--цена одного литра бензина
условный оператор if:
1) написать программу, которая проверяет, является ли чётным введеное целое число (условие проверки чётности: ...if (перемен.) mod 2=0 then...)
2) написать программу, которая вычисляет частное двух целых чисел. (ввести ограничение: на ноль делить нельзя) (...it b=0 then writeln (,на ноль делить нельзя,))
3) написать программу, которая сравнивает возраст брата и сестры и выводит соответствующее сообщение.

[danekne]

Ха-ха-ха!
2)
writeln('введите стоимость тетради:');
readln(t_price);
writeln('введите стоимость карандаша:');
readln(k_price);
writeln('введите количество тетрадей в покупке:');
readln(t_kol);
writeln('введите количество карандашей в покупке:');
readln(k_kol);
writeln('попросить у папы:',t_kol*t_price+k_kol*k_price) ;

[anz2034]

спасибо, а первую?

[anz2034]

и ещё есть 5 задач. в пятницу уже сдать надо

[pakistani]

для прямоугольного параллелепипеда

writeln('введите длины сторон');
readln(a);
readln(b);
readln(c);
writeln('Площадь S: ', 2*(a*b+b*c+a*c));

[pakistani]

если остальные такого же типа, решай сам) по аналогии

[anz2034]

есть ещё две функции, но я не знаю как на компе написать x в квадрате или в кубе, и как написать корень

[raxp]

x*x <=> sqr
x*x*x <=> power(), см. справку
(x)^(1/2) <=> sqrt
(x)^(1/3) <=> power(), см. справку

[anz2034]

RAXP помоги с задачами, пожалуйста. завтра уже сдать надо

[ОДИНОЧЕСТВО В СЕТИ]

1

st:= R*2*B*S/100;

2

if a mod 2 =0 then writeln('da')
  else writeln ('net');

3

if b<>0 then Writeln(a/b)
  else writeln('division by zero');

4

if b_age>s_age then writeln('brother')
     else writeln('sister');