Deselect Answer

Deselect Answer

Deselect Answer

Deselect Answer

program test1;
var no:Boolean;
begin
no:= not(6+11 mod 2>=5) and(18/3*4>22 div 4);
Write(no);
end.Deselect Answer

program pra1;
var marks:Integer;
results:String;
begin
WriteLn('Please enter your total marks:-');
ReadLn(marks);
If marks>75 then
Results:='Pass'
Else
Results:='Fail';
Write(results);
end.Deselect Answer

1. program pra1;
2. var marks:Integer;
3. results:String;
4. begin
5. WriteLn('Please enter your total marks:-');
6. Read(marks);
7. If marks>75 then
8. Results:='Pass'
9. Else
10. Results:='Fail';
11. Write(results);
12. end.

program test1;
var no:Boolean;
begin
no:= not(6+11 mod 2>=5) and(18/3*4>22 div 4);
Write(no);
end.Deselect Answer

program test1;
var no:Boolean;
begin
no:= not(6+11 mod 2>=5) and(18/3*4>22 div 4);
Write(no);
end.Deselect Answer

program test1;
var no:Boolean;
begin
no:= not(6+11 mod 2>=5) and(18/3*4>22 div 4);
Write(no);
end.Deselect Answer