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
Đúng 1
Bình luận (0)
Bài 5. Từ bài toán đến chương trình
Các câu hỏi tương tự
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.