K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
ML
28 tháng 9 2020
Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.
program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
Begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
end
else
begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
end;
readln;
end.
10 tháng 11 2021
Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ
ML
18 tháng 6 2019
Lời giải :
Bài 1:
Ý tưởng:
-Cách 1: Bạn có thể chuyển số n thành xâu sau đó đảo ngược xâu lại
-Cách 2: Đảo trực tiếp chữ số đó
Bài làm :
Cách 1:
program hotrotinhoc;
var n,i: byte;
s,s1: string;
begin
write('n='); readln(n);
str(n,s);
for i:= length(s) downto 1 do
s1:=s1+s[i];
write(s1);
readln
end.
Cách 2:
var n: byte;
begin
write('n='); readln(n);
while n>0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln
end.
H
16 tháng 12 2020
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
PT
2
NQ
1
19 tháng 12 2017
*Thuật toán là một phần của chương trình thể hiện được các thủ thuật thông minh của người lập trình để máy chạy đúng nhất, ít lãng phí bộ nhớ và thời gian nhất.
* Các bước để giải một bài toán trên máy tính:
+ Xác định bài toán
+ Lựa chọn hoặc thiết kế thuật toán
+ Viết chương trình
+ Hiệu chỉnh
+ Viết tài liệu.
26 tháng 10 2016
program vantoc;
uses crt;
var v,s,t:real;
begin
writeln('nhap quang duong km');
readln(s);
writeln('nhap thoi gian h');
readln(t);
v:=s/t;
writeln('thoi gian la',v:4:2);
readln
end.
= 1
7 div 3 = 2 --> 2/2 --> 1