Задание:
Измените программу так, чтобы она вычисляла: а) дробную часть чисел, б) произведение чисел меньших 22, в) сумму чисел которые попадают в промежуток от 10 до 50 (включительно оба). P.S. В паскале и в одной программе
Решение:
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.
Знаете другой ответ?