VCT nhập vào 2 số a,b.Cho biết (a+b) chia 7 lấy phần nguyên có bằng 6 không?in kết quả và cho biết kết quả của (a+b)/7 lấy phần nguyên chạy chương trình bằng ngôn ngữ pascal mình chỉ học tới bài 6 thôi và mới học có 4 kiểu dữ liệu à là:integer,string,real,char
2 câu trả lời
uses crt;
var a, b : integer;
begin
clrscr;
write('nhap hai so a va b : ');readln(a, b);
if (a + b) div 7 = 6 then writeln('(a + b) chia 7 lay phan nguyen bang 6')
else writeln('(a + b) chia 7 lay phan nguyen khong bang 6');
writeln('(a + b) div 7 = ', (a + b) div 7);
readln
end.
Program baitap;
Uses crt;
Var a,b:integer;
Begin
Clrscr;
Write('a='); Readln(a);
Write('b='); Readln(b);
If (a+b) div 7=6 then Writeln(' (a+b) chia 7 lay phan nguyen bang 6')
Else Writeln(' (a+b) chia 7 lay phan nguyen khong bang 6');
Writeln('(a+b) div 7=',(a+b) div 7);
Readln
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
