Найти количество делителей натурального числа а, больших к. (а и к вводятся с клавиатуры, k< =a). код должен быть записан на языке поскаля (pascal)

103

444

Посмотреть ответы 2

Ответы на вопрос:

помогите1188

Информатика

4,6(45 оценок)

Не понятно, что должно означать k< =a, но сделалусловие с выводом. var a, k: integer; begin write('k> > '); read(k); write('a> > '); read(a); if k< =a then writeln('k< =a') else writeln('k> a') end.

hetty

Информатика

4,7(22 оценок)

Var a,b,p: real; begin write('a = '); readln(a); write('b = '); readln(b); p: =a*b; if p< 0 then p: =p*p else a: =a*5; writeln('a = ',a); writeln('b = ',b); writeln('p = ',p); end.