Помогите пожалуйста СОСТАВИТЬ Программку ПАСКАЛЬ ПО ЭТИМ ЗАДАНИЯМ 1)для натурального числа

Помогите пожалуйста СОСТАВИТЬ ПРОГРАММУ ПАСКАЛЬ ПО ЭТИМ ЗАДАНИЯМ
1)для естественного числа N, если оно делится на 5, получить eго удвоенную сумму
2) вычислить значение функции
F= x+7, если xlt;5
x/3, если xgt;5
9, если x=5

Задать свой вопрос
1 ответ
Задачка 1
Неясно про удвоенную сумму. Пока написал код для двойного значения.

//Pascal
var a:integer;
begin
  readln(a);
  if a mod 5 = 0 then a:=a*2;
  writeln (a);
end.

Задачка 2
//Pascal
var f,x:real;
begin
  readln(x);
  if xlt;5 then f:=x+7;
  if xgt;5 then f:=x/3;
  if x=5 then f:=9;
writeln(f);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт