chứng chỉ A Tinh học

Những câu hỏi liên quan
Nguyễn Xuân Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:46

2:

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setpricision(2)<<1/(a+b)<<endl;

return 0;

}

Bình luận (0)
Py
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:25

Câu 1: 

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Bình luận (0)
Genj Kevin
25 tháng 4 2021 lúc 21:26

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Bình luận (0)
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:26

Câu 1: 

uses crt;

var kt,n,i:integer;

begin

clrscr;

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

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Bình luận (0)
Tiên Tiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:22

Bài 1:

uses crt;

var S:String;

vt:integer;

begin

clrscr;

Write(‘Nhap 1 xau:’); Readln(S);

While pos(‘nang’,s)>0 do

Begin

Vt:= pos(‘nang’,s);

Delete(s,vt,4);

Insert(‘mua’,s ,vt);

End;

Writeln(‘Xau sau khi thay the ’,s);

Readln;

End.

Bình luận (0)
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:26

Bài 2: 

uses crt;

var st:string;

d,i,kt:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

kt:=0;

for i:=1 to d do 

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

if kt=0 then writeln(st,' la xau doi xung')

else writeln(st,' khong la xau doi xung');

readln;

end.

Bình luận (0)
Khánh Mỹ
Xem chi tiết
Buddy
3 tháng 3 2021 lúc 14:54

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

Bình luận (1)
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:43

uses crt;

var st:string[100];

i,d,kt:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

kt:=0;

for i:=1 to length(st) do

if st[i]<>st[length(st)-i+1] then kt:=1;

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

else writeln('Xau khong doi xung');

readln;

end.

Bình luận (0)
phuoc
20 tháng 8 2021 lúc 14:59

code đây bạn c++ nha:

#include<bits/stdc++.h>
using namespace std;
char doixung(char s1[100])
{
long long i;
for(i=0;i<strlen(s1)/2;i++)
{
    if(s1[i] != s1[strlen(s1)-1-i])
         return 0;
}
return 1;
}
int main()
{
char s1[100];
cin>>s1;
if(doixung(s1)==0)
{
   cout<<"k la cxau doi xung";
}
if(doixung(s1)==1)
{
   cout<<"la xau doi xung";
}
return 0 ;
}

Bình luận (0)
Phạm trọng Thành
Xem chi tiết
Lê Bảo Châu
6 tháng 1 lúc 14:43

#include <bits/stdc++.h>
using namespace std;
int main() {
    string str;
    getline(cin, str);
    string ans = "";
    for (char c : str) {
        if (!isdigit(c)) {
            ans += c;
        }
    }
    cout <<ans;
}

Theo mk là như v

Bình luận (0)

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do

if not(st[i] in ['0'..'9']) then write(st[i]);

readln;

end.

Bình luận (0)
Nguyenthi Tien
Xem chi tiết
Cherry
21 tháng 3 2021 lúc 16:03

 câu 1 Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte

; i:Byte;

ch:Char;

Begin Write(‘Nhap xau St: ‘);

Readln(St);

{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

Bình luận (1)
thiên hiền lê
21 tháng 3 2021 lúc 16:30

Hehe,con sâu

Bình luận (0)
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:49

uses crt;

var st:string;

i,d,kt:integer;

ktu:char;

begin

clrscr;

write('Nhap xau:'); readln(st);

write('Nhap ki tu:'); readln(ktu);

d:=length(st);

kt:=0;

for i:=1 to d do 

  if ktu=st[i] then kt:=1;

if kt=0 then writeln(ktu,' khong co trong xau')

else writeln(ktu,' co trong xau');

readln;

end.

Bình luận (0)
phuoc
Xem chi tiết
phuoc
20 tháng 8 2021 lúc 15:03

ai đó giúp mình với nhanh lên

 

Bình luận (2)
phuoc
20 tháng 8 2021 lúc 15:06

thêm test đây nha:

Dữ liệu : Vào từ từ tệp Suaxau.Inp chứa xâu cần sửa. 

Kết quả:  Ghi vào tệp Suaxau.out xâu đã sửa. 

Ví dụ: 

Suaxau.INP

   Suaxau.OUT

Ta#oi thi hoc sinua#h###nh gioi tin hoj#c

     Toi thi hoc sinh gioi tin hoc

Bình luận (0)
Melozing
23 tháng 8 2021 lúc 20:16

https://youtu.be/b5YcStwxIiM

Bình luận (2)
Kiều Đông Du
Xem chi tiết
Đỗ Khánh Chi
30 tháng 9 2018 lúc 8:35

Đáp án B

I đúng

Chuỗi thức ăn có loài H: GHA;GHBA;GHCBA;EHA, EHBA, EHCBA;EMKHA; EMKHBA, EMKHCBA

Chuỗi thức ăn có loài G: GHA;GHBA;GHCBA; GDCBA

II đúng, vì loài A ở bậc dinh dưỡng cao nhất.

III đúng, nếu loại bỏ loài A

Số chuỗi thức ăn của lưới là: HDCB; GHCB;GHB; EHB; EHCB; EMKHB; EMKHCB; EMKI

IV đúng.

Bình luận (0)
Kiều Đông Du
Xem chi tiết
Đỗ Khánh Chi
23 tháng 1 2019 lúc 8:02

Đáp án B

I đúng

Chuỗi thức ăn có loài H: GHA;GHBA;GHCBA;EHA, EHBA, EHCBA;EMKHA; EMKHBA, EMKHCBA

Chuỗi thức ăn có loài G: GHA;GHBA;GHCBA; GDCBA

II đúng, vì loài A ở bậc dinh dưỡng cao nhất.

III đúng, nếu loại bỏ loài A

Số chuỗi thức ăn của lưới là: HDCB; GHCB;GHB; EHB; EHCB; EMKHB; EMKHCB; EMKI

IV đúng.

Bình luận (0)