34 решить по информатике ( нужно решать через паскаль+ блок схема) составить в тетради блок-схемы и программы для следующих алгоритмов: а) определения делимости числа на 7; б) определения делимости числа на 3 и 6; в) определения делимости числа на 3 и 5;

133

419

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

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

alpengold1310

Информатика

4,5(4 оценок)

A) var n : integer; begin readln (n); if n mod 7 = 0 then write ('кратно семи') else write ('не кратно семи'); end. б) var n : integer; begin readln (n); if (n mod 6 = 0) and (n mod 3 = 0) then write ('кратно шести и трём') else write ('не кратно шести и трём'); end. в) var n : integer; begin readln (n); if (n mod 5 = 0) and (n mod 3 = 0) then write ('кратно пяти и трём') else write ('не кратно пяти и трём'); end.

elenareznik201

Информатика

4,5(52 оценок)

Var a,b,c: longint; begin readln(a,b); if b> a then begin c: =b; b: =a; a: =c; end; if (a mod 2=0) and (b mod 2=0) then write(a,' : 2 = ',a/2) else if (a mod 2=1) and (b mod 2=1) then write(a,' * 2 = ',a*2,'; ',b,' * 2 = ',b*2) else if (a mod 2=1) then write(a,' + 1 = ',a+1) else write(b,' + 1 = ',b+1); readln; end.