Измените программу так, чтобы она вычисляла : а)дробную часть чисел,б)произведение чисел меньших 22, в) сумму чисел которые попадают в промежуток от 10 до 50( включительно оба). P.S. в паскале и в одной программе
Измените программу так, чтобы она вычисляла : а)дробную часть чисел,б)произведение чисел меньших 22, в) сумму чисел которые попадают в промежуток от 10 до 50( включительно оба). P.S. в паскале и в одной программе
Гость
Ответ(ы) на вопрос:
Гостьvar
m:char;
a,b,j,k:integer;
c:real;
begin readln(m); if m='a' then
begin
readln(a);
readln(b);
c:= a/b - a div b;
writeln(c:4:2);
end; if m='b' then
begin
j:=1;
k:=1;
while k < 22 do
begin
j := j*k;
k:= k+1;
end;
writeln(j);
end; if m='c' then
begin
j:=0;
k:=10;
while k <= 50 do
begin
j := j+k;
k:= k+1;
end; writeln(j);
end;
readln;
end.
Не нашли ответ?
Похожие вопросы