Program tinhx;
Uses crt;
Var x, tinh:integer;
Begin
Clrscr;
Writeln('Tinh x+2*x');
Writeln;
Write('Nhap so x vao: ');
Readln(x);
Tinh:=(x+(2*x));
Readln;
Writeln('x+2*x= ',tinh);
Readln;
End.
Có sai sót thì xin lỗi :)
Đây là bài của Trường THCS Chu Văn An
lớp 8A4
program nguyenminhien;
uses crt;
var x:integer;
begin
clrscr;
writeln('nhap x=');
readln(x);
writeln(x+2*x:0:2);
readln;
end.
tui nghĩ là hơi đúng với đề bài,nếu sai mong các bạn xem thông cảm giùm mình.
Đây là bài của Trường THCS Chu Văn An
lớp 8A4
program nguyenminhien;
uses crt;
var x:integer;
begin
clrscr;
writeln('nhap x=');
readln(x);
writeln(x+2*x:0:2);
readln;
end.
tui nghĩ là hơi đúng với đề bài,nếu sai mong các bạn xem thông cảm giùm mình.