Viết chương trình so sánh a và b

readln;

end.

1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu)

2) Cho đoạn chương trình sau:

Program sua loi;

var a,b,s =real

Begin

write ('nhap a=') , readln('a');

write (nhap b=') , readln(b')

s:= (a*b)/2;

write ('s=s);

readln

End.

• Viết cú pháp câu lệnh lặp với số lần chưa biết trước (while...do). Nêu hoạt động của câu lệnh.

  21/03/2022 |   0 Trả lời

• Program Tong_chu_so;

  Var s:string;

  i:byte;

  p:integer;{bien luu tong}

  begin

  write('Nhap so: ');readln(s);

  for i:=1 to length(s) do p:=p+ord(s[i]);

  p:=p-48*length(s);

  writeln(p);

  Readln

  End

  21/03/2022 |   0 Trả lời

• Làm ơn giúp với ạ

  

  27/03/2022 |   0 Trả lời

• Lập bảng mô phỏng quá trình thực hiện của đoạn chương trình sau, xác định số vòng lặp? Cho biết sau khi thực hiện hết các câu lệnh giá trị của biến k bằng bao nhiêu? k:=2 For i:=1 to 7do k:=k 1;

  27/03/2022 |   0 Trả lời

• 05/04/2022 |   0 Trả lời

• Viết cú pháp câu lệnh lặp với số lần chưa biết trước (while...do). Nêu hoạt động của câu lệnh.

  21/03/2022 |   0 Trả lời

• Program Tong_chu_so;

  Var s:string;

  i:byte;

  p:integer;{bien luu tong}

  begin

  write('Nhap so: ');readln(s);

  for i:=1 to length(s) do p:=p+ord(s[i]);

  p:=p-48*length(s);

  writeln(p);

  Readln

  End

  21/03/2022 |   0 Trả lời

• Làm ơn giúp với ạ

  27/03/2022 |   0 Trả lời

• Lập bảng mô phỏng quá trình thực hiện của đoạn chương trình sau, xác định số vòng lặp? Cho biết sau khi thực hiện hết các câu lệnh giá trị của biến k bằng bao nhiêu? k:=2 For i:=1 to 7do k:=k 1;

  27/03/2022 |   0 Trả lời

• 05/04/2022 |   0 Trả lời