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.

28 tháng 6 2023

program HOC24;
uses crt;
var s: string;
    i, n, count: integer;
begin
    clrscr;
    write('Nhap chuoi S: ');
    readln(s);
    n := length(s);
    count := 0;
    for i := 1 to n do
        if (s[i] in ['0'..'9']) then
            if (StrToInt(s[i]) mod 5 = 0) then
            begin
                writeln('So chia het cho 5 la: ', s[i]);
                inc(count);
            end;
    writeln('Tong so chia het cho 5 la: ', count);
end.

 

29 tháng 6 2023

Câu lệnh này kiểm tra xem số tại vị trí i trong chuỗi s có chia hết cho 5 hay không. Nếu chia hết thì thực hiện lệnh bên trong if. Nếu không chia hết thì bỏ qua lệnh bên trong if và tiếp tục vòng lặp

Câu 1:         Viết chương trình có một chuỗi kí tự gồm chữ cái, chữ số và khoảng cách và thực hiện:a.  Trong chuỗi kí tự có bao nhiêu kí tự số?b. Tính tổng các chữ số.c.  Xuất ra tất cả kí tự chữ có trong chuỗi theo thứ tự vừa nhập.-    Yêu cầu: Cho trước một chuỗi kí tự S chỉ gồm chữ cái, chữ số và khoảng cách trên một dòng. Hãy thực hiện các yêu cầu trên.-    Dữ liệu vào: Nhập từ bàn phím gồm...
Đọc tiếp

Câu 1:

         Viết chương trình có một chuỗi kí tự gồm chữ cái, chữ số và khoảng cách và thực hiện:

a.  Trong chuỗi kí tự có bao nhiêu kí tự số?

b. Tính tổng các chữ số.

c.  Xuất ra tất cả kí tự chữ có trong chuỗi theo thứ tự vừa nhập.

-    Yêu cầu: Cho trước một chuỗi kí tự S chỉ gồm chữ cái, chữ số và khoảng cách trên một dòng. Hãy thực hiện các yêu cầu trên.

-    Dữ liệu vào: Nhập từ bàn phím gồm một dòng ghi chuỗi kí tự S (có độ dài không quá 255 ký tự). Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra

-    Kết quả: In ra màn hình theo cấu trúc sau:

+ Dòng 1: Ghi có bao nhiêu kí tự số

+ Dòng 2: Ghi tổng các chữ số

+ Dòng 3: Ghi tất cả các kí tự chữ cái trong chuỗi

Câu 2:

         Một dãy số gồm N số nguyên dương . Tính tổng các phần tử có trong dãy số, in ra số lần xuất hiện các phần tử có trong dãy số.

-    Yêu cầu: Cho một dãy số gồm N số nguyên dương. Hãy thực hiện các yêu cầu trên. Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra

-    Dữ liệu vào: Nhập từ bàn phím có dạng như sau:

+ Dòng 1: Ghi số nguyên dương N (1≤N≤100000)

+ Dòng 2: Ghi dãy N số nguyên dương a1, a2,..., an (1≤ai≤1000,i=1..n)

-    Kết quả: In ra màn hình theo cấu trúc sau:

+ Dòng 1: In ra tổng các phần tử trong dãy số.

+ Dòng tiếp theo: In ra phần tử và số lần xuất hiện của nó.

Giúp mik với, mik đang mắc!!!làm bằng pascal nhé, nặng cũng đc, máy mik intel i9 12900k và rtx 3090 nhé :) mới mua vài hôm trước:)

1

Câu 2: 

uses crt;

var a,b:array[1..100]of integer;

i,n,t,dem,j,kt,dem1:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

dem:=1;

b[1]:=a[1];

for i:=1 to n do 

begin

kt:=0;

for j:=1 to dem do

  if b[j]=a[i] then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do 

begin

dem1:=0;

for j:=1 to n do 

  if a[j]=b[i] then inc(dem1);

writeln(b[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

Câu 1:         Viết chương trình có một chuỗi kí tự gồm chữ cái, chữ số và khoảng cách và thực hiện:a.  Trong chuỗi kí tự có bao nhiêu kí tự số?b. Tính tổng các chữ số.c.  Xuất ra tất cả kí tự chữ có trong chuỗi theo thứ tự vừa nhập.-    Yêu cầu: Cho trước một chuỗi kí tự S chỉ gồm chữ cái, chữ số và khoảng cách trên một dòng. Hãy thực hiện các yêu cầu trên.-    Dữ liệu vào: Cho từ tệp văn bản có...
Đọc tiếp

Câu 1:

         Viết chương trình có một chuỗi kí tự gồm chữ cái, chữ số và khoảng cách và thực hiện:

a.  Trong chuỗi kí tự có bao nhiêu kí tự số?

b. Tính tổng các chữ số.

c.  Xuất ra tất cả kí tự chữ có trong chuỗi theo thứ tự vừa nhập.

-    Yêu cầu: Cho trước một chuỗi kí tự S chỉ gồm chữ cái, chữ số và khoảng cách trên một dòng. Hãy thực hiện các yêu cầu trên.

-    Dữ liệu vào: Cho từ tệp văn bản có tên XAU.INP gồm một dòng ghi chuỗi kí tự S (có độ dài không quá 255 ký tự). Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra

-    Kết quả: Ghi ra tệp văn bản có tên XAU.OUT theo cấu trúc sau:

+ Dòng 1: Ghi có bao nhiêu kí tự số

+ Dòng 2: Ghi tổng các chữ số

+ Dòng 3: Ghi tất cả các kí tự chữ cái trong chuỗi

         Ví dụ:

XAU.INP

XAU.OUT

Ky2thichon5hoc5sinhgioi3lop719

7

32

Kythichonhocsinhgioilop

 

Giúp mik với, đúng mik cho 1 like nhé và bằng pascal nhé !!!

0
25 tháng 12 2020

uses crt;

var i,n,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');

for i:=5 to n do 

  if (i mod 2=0) and (i mod 7=0) then write(i:4);

writeln;

writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');

dem:=0;

for i:=5 to n do 

  if i mod 7=0 then 

   begin

write(i:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);

readln;

end.

1 tháng 1 2021

var n,i,k,d: integer;

a:array[1..52] of integer;

begin

write('Nhap so N: '); readln(n);

for i:=1 to n do

begin

write('a[',i,'] = '); readln(a[i]);

end;

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

d:=0;

for i:=1 to n do

if a[i] mod k = 0 then d:=d+1;

writeln('Co ',d,' so chia het cho ',k,' trong day');

if d mod 2 = 0 then writeln('Chan') else writeln('Le');

end.

uses crt;

var a:array[1..52]of integer;

i,n,k,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<=52);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

dem:=0;

for i:=1 to n do  

  if a[i] mod k=0 then inc(dem);

writeln('Trong day co ',dem,' so chia het cho ',k);

if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')

else writeln('So luong so chia het cho ',k,' la so le');

readln;

end.

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A';

writeln('Xau sau khi doi la: ',s);

readln;

end.

uses crt;

var s:string;

i,d,dem,dem1,kt:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

dem:=0;

for i:=1 to d do 

  if st[i] in ['0'..'9'] then inc(dem);

writeln('So ki tu la chu so la: ',dem);

dem1:=0;

for i:=1 to d do 

  if (st[i] in ['A'..'Z']) or (st[i] in ['a'..'z']) then inc(dem1);

writeln('So ki tu la chu cai la: ',dem1);

write('Xau sau khi xoa ki tu trang la: ');

for i:=1 to d do 

if st[i]<>#32 then write(st[i]);

writeln;

kt:=0;

for i:=1 to d do 

 if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Xau doi xung')

else writeln('Xau khong doi xung');

readln;

end.