Данное задание выполняется в программе PascalABC.Net. Поэтому я даю за него такое кол-во...

Question

Данное задание выполняется в программе PascalABC.Net. Поэтому я даю за него такое кол-во баллов. Если вы заранее не знаете, как это решается, то ничего не пишите. Те, кто работал с этой программой, прошу помочь. Заранее спасибо.
Написать программы для решения задач. Условия в программе - обязательно.
1. Дано целое число. Определить:
a. является ли оно четным;
b. оканчивается ли оно цифрой 7;
c. оканчивается ли оно четной цифрой?
2. Даны радиус круга и сторона квадрата. У какой фигуры площадь больше?
3. Даны объемы и массы двух тел из разных материалов. Материал какого из тел имеет большую плотность?
4. Известны два расстояния: одно в километрах, другое - в футах (1 фут = 0,45 м). Какое из расстояний меньше?
Внимание! Любые попытки получить баллы "на халяву", я буду отмечать, как нарушение.

Answer 1

Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*aelse writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if aelse writeln('Equal');
end.

Comments

Спасибо большое))))

---

Только на этом моменте else if a<b then writeln(a), он пишет встречено 'else', а ожидался оператор. Что это значит?

---

4 задача..

---

странно, у меня все нормально запускаетяс

---

может случайно поставили " ; " перед этой строчкой?

---

А как в Pascal написать, что х делится на 3. (Так, чтобы он меня понял)

---

if x mod 3 = 0 then