• Составить программу Paskal для:
    1)Найти стороны прямоугольника, у которого известны периметр и площадь
    2)Дано трехзначное натуральное число. Определить, является ли сумма его цифр двузначным числом

Ответы 1

  • Pascal ABC1)Var P,S:real;BeginWrite('P = ');Read(P);Write('S = ');Read(S);if (P/2-sqrt(P*P/4-4*S))/2<0 then S:=(P/2+sqrt(P*P/4-4*S))/2else S:=(P/2-sqrt(P*P/4-4*S))/2;WriteLn('Первая сторона равна ',S);WriteLn('Вторая ',P/2-S);End.2)VarA:integer;BeginWrite('A = ');Read(A);if ((A div 10) mod 10) +(A mod 10)+(A div 100)>9 then Write('Является')else Write('Не является')End.
  • Добавить свой ответ

Войти через Google

или

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

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

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