Ответ:
Ответ:
1)
Var a,b:integer;
Begin
Read(a,b);
Write((a mod b)+’ ‘+(a div b));
End.
2)
Var a,b,c:integer;
Begin
Read(a,b,c);
If a+b+c>3 then write(‘<<Зачёт>>’)
Else write(‘<<Незачёт>>’);
End.
3)
Var i,count:integer;
Begin
For i:=1 to 50 do
If (i mod 3) =0 then
Count:=count +1;
Write(count);
End.