Viêt chương trình nhập trường lớp họ tên trong pascal

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

  • Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ [10 ≤ A, M  ≤ 103].
  • Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

  • Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát [mỗi số cách nhau một ký tự trắng].
  • Hàng 2: lần lượt là số áo, số mũ còn thừa.

  • haohaoiu2
  • Chưa có nhóm
  • Trả lời

    0

  • Điểm

    5

  • Cảm ơn

    0

  • Tin Học
  • Lớp 11
  • 20 điểm
  • haohaoiu2 - 16:20:31 11/04/2020

  • Hỏi chi tiết
  • Báo vi phạm

Hãy luôn nhớ cảm ơnvote 5*
nếu câu trả lời hữu ích nhé!

TRẢ LỜI

  • vandat13012006
  • Anh Em Siêu Nhân
  • Trả lời

    6076

  • Điểm

    149406

  • Cảm ơn

    5029

  • vandat13012006
  • 13/08/2020

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

program xau;
uses crt;
var st : string;
begin clrscr;
write['Nhapho ten nguoi do :']; readln[st];
writeln['Ten nguoi do la :',st];
writeln['Ten nguoi do co ',length[st],' ki tu '];
readln
end.

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

  • Cảm ơn


  • yuranarracy1811
  • Chưa có nhóm
  • Trả lời

    22

  • Điểm

    260

  • Cảm ơn

    15

  • yuranarracy1811
  • 11/04/2020

program hoten

Uses crt;

var s:string;

i,d:integer;

begin

write['Nhap ho ten: ']; read[s];

for i:=1 to length[s] do inc[d];

writeln['Ho ten nguoi do la: ',s];

write['Ho ten nguoi nay co: ',d,'ki tu'];

Readln;

End.

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

4.5

star star star star star

2 vote

Bài Viết Liên Quan

Chủ Đề