Тема: abc pascal. простые и составные условия. алгорическая конструкция (if, then, else и проч.) 1 заданы два целых числа. напечатать делится ли первое на второе нацело. 2 напечатать, является ли заданное число чётным. 3 вводятся 3 числа. найти наибольшее.

287

318

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

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

87021306559

Информатика

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

1) program chik; var a,b: integer; begin read(a,b,c); if(a mod b=0)then writeln('делиться')else writeln('не делиться'); end. 2) program chik2; var a: integer; begin read(a); if(a mod 2=0)then writeln('да')else writeln('no'); end. 3) program chik3; var a,b,c,max: integer; begin read(a,b,c); max: =a; if(b> max)then max: =b; if(c> max)then max: =c; writeln(max); end.