• УМОЛЯЮ,ПОМОГИТЕ С ПАСКАЛЕМ
    1)
    Вычислить оптимальный вес по формуле рост-100 (фактический вес V и рост H вводятся пользователем) и выдать одно из сообщений:
    - у вас идеальный вес;
    - вам нужно похудеть на n кг (n вывести);
    - вам нужно поправиться на n кг (n вывести).
    2)Составить программу, которая бы по последней цифре многозначного числа выдавала бы одно из сообщений:
    число не делится ни на 2, ни на 5
    число делится только на 2
    число делится только на 5
    число делится и на 2, и на 5.


Ответы 4

  • а можешь еще 1. Пользователь вводит неотрицательное однозначное число A. Написать программу: вычисляющую в случае ввода 1 - площадь круга с радиусом A, вычисляющую в случае ввода 2 - площадь квадрата со стороной A, вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,
    • Автор:

      ryder87
    • 6 лет назад
    • 0
  • var a: integer;beginreadln(a);if a=1 then writeln('S круга = ', pi*a*a);if a=2 then writeln('S квадрата = ', a*a);if a=3 then writeln('S треугольника = ',a*a*sqrt(3)/4);end.
    • Автор:

      ami
    • 6 лет назад
    • 0
  • спасибо огромное!! это просто надо в паскаль вписать и все?
  • 1)var v,h,i:real;beginreadln(v);readln(h);i:=h-100;if v=i then writeln('у вас идеальный вес') else if v>i then writeln('вам нужно похудеть на ', v-i,' кг ') elsewriteln('вам нужно поправиться на ', i-v,' кг ');end.2)var a:string;b:integer;beginreadln(a);b:=strtoint(a[length(a)]);if (b mod 2 <> 0) and (b mod 5 <> 0) then writeln('число не делится ни на 2, ни на 5');if (b mod 2 = 0) and (b mod 5 <> 0) then writeln('число делится только на 2');if (b mod 2 <> 0) and (b mod 5 = 0) then writeln('число делится только на 5');if (b mod 2 = 0) and (b mod 5 = 0) then writeln('число делится и на 2, и на 52');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years