Определить что, данное натуральное число а кратно числу ь, но не кратно числу с! составить программу.

189

254

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

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

polinavrn102

Информатика

4,8(62 оценок)

Var a, b, c: integer; begin write('введите a, b, c: '); readln(a, b, c); if(a mod b = 0) and (a mod c < > 0) then writeln('кратно b, но не кратно c') else writeln('условие не истинно'); end.

Сергій098765

Информатика

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

Pascal abc 1) var p,s: real; begin write('p = '); read(p); write('s = '); read(s); if (p/2-sqrt(p*p/4-4*s))/2< 0 then s: =(p/2+sqrt(p*p/4-4*s))/2 else s: =(p/2-sqrt(p*p/4-4*s))/2; writeln('первая сторона равна ',s); writeln('вторая ',p/2-s); end. 2) vara: integer; beginwrite('a = '); read(a); if ((a div 10) mod 10) +(a mod 10)+(a div 100)> 9 then write('является')else write('не является')end.