VCT nhập vào 2 số x,y.Cho biết(x+y)>100 không?in kết quả và cho biết kết quả x+y nhớ nhập ngôn ngữ chương trình là pascal nhé mấy bợn x,y là số nguyên mình mới học tin học tới bài 6 học mới có 4 kiểu dữ liệu:interger,real,char,string
2 câu trả lời
uses crt;
var x, y : integer;
begin
clrscr;
write('nhap hai so nguyen x va y : ');readln(x, y);
if x + y > 100 then writeln('x + y lon 100')
else writeln ('x + y khong lon hon 100');
writeln('x + y = ', x + y);
readln
end.
Program baitap;
Uses crt;
Var x,y:integer;
Begin
Clrscr;
Write('x='); Readln(x);
Write('y='); Readln(y);
If (x+y)>100 then writeln('x+y co lon hon 100')
Else writeln('x+y khong lon hon 100');
Writeln('x+y=',x+y);
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
