Pascal ABCОператоры case of и if the elseПомогите написать программу...

Question

Pascal ABC
Операторы case of и if the else
Помогите написать программу...

---

Скачать вложение Word (DOC)

Answer 1

Я пишу на делфи 7 ну попробуй сообразить немного

---

Comments

var
a, b, c : integer;
begin
write('Введите первое целое число '); readln(a);
write('Введите второе целое число '); readln(b);
if a < b then c := 2*a
else c := 2*b;
writeln('Меньшее число ', c div 2);
writeln('Оно же увеличенное вдвое ', c)
end.