Chắc chắn là bạn phải thay kiểu dữ liệu Real sang Integer hoặc Byte rồi bởi vì Với vòng lặp for, biến đếm không bao giờ là số thực
Sửa lỗi sai và viết lại thành một chương trình hoàn chỉnh
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a='); readln(a)
Write('nhap b='); readln(b);
Tich:a*b
Writeln('tich cua a va b la:, Tich: 8:20);
Readln;
end;
Sau khi thực hiện xong đoạn chương trình dưới đây thì giá trị của a,b là bao nhiêu
A/ a:=2;b:=3
For i:=1 to 7 do b:=b+2:a:=a+2 ;
B/ a:=4 : b:6;
While a<6 do a:=a+1; b:= b+3 ;end;
C/ a:=1 ; b:=3;
For j:=2 to 4 do begin a:=a+1; b:=b+3; end;
Hãy chỉ ra INPUT(đầu vào), OUTPUT(đầu ra) và mô tả thuật toán của bài toán sau: Tính tích của 10 số tự nhiên đầu tiên từ 1 đến 10. Giúp mình nhanh nhanh với ạ tuần sau mình thi rồi:(
Cho đoạn CT:
j:=1 ; k:=4;
for i:=1 to 6 do j:=j+1
k:=k+j
writeln(j,k);
In ra màn hình, j,k=?
Writeln ('((10+5)*(10+5)-(2+12))/3=',((10+5*(10+5)-(2+12))/3);
End
Kết quả là
Ý nghĩa của câu lệnh
Writeln (10/3 : 5: 2);
Mọi người giúp mình với nha 😘
Writeln ('5+20=','20+5);
End.
Kết quả là
Writeln ('15*2-15+25=',15*2-15+25);
End.
Kết quả là
Hãy chỉ ra INPUT(đầu vào), OUTPUT(đầu ra) và mô tả thuật toán của bài toán sau: Tính tổng của 10 số tự nhiên đầu tiên từ 1 đến 10.
