Измените программу так, чтобы она вычисляла: а) дробную часть чисел…

Question

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

Answer 1

66

krassalex

15 марта 2023

varm: char; a,b,j,k: integer; c: real; beginreadln (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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: