Задать вопрос Регистрация
Помочь другим

  • измените программу так, чтобы она вычисляла : а)дробную часть чисел,б)произведение чисел меньших 22, в) сумму чисел которые попадают в промежуток от 10 до 50( включительно оба). P.S. в паскале и в одной программе

Ответы 1

  • varm:char;a,b,j,k:integer;c:real;begin

    readln(m);

    if m='a' thenbeginreadln(a);readln(b);c:= a/b - a div b;writeln(c:4:2);end;

    if m='b' thenbeginj:=1;k:=1;while k < 22 dobegin j := j*k; k:= k+1;end;writeln(j);end;

    if m='c' thenbeginj:=0;k:=10;while k <= 50 dobegin j := j+k; k:= k+1;end;

    writeln(j);end;

     

    readln;end.

    • Автор:

      daria83
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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