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.

1 tháng 11 2022

Pascal hay C++ ??

2 tháng 11 2022

a) Begin

Writeln('Xin chao cac ban');

Write('Toi den tuViet Nam');

Readln;

End.

-------------------------

b) Begin

Write('Nghe de quennhin de nholam moi hieu');

Readln:

End.

27 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int main()

{

cout<<"Chao cac ban"<<endl;

cout<<"Minh ten la:"<<endl;

cout<<"Minh hoc lop:";

return 0;

}

4 tháng 12 2021

program XinChao;

uses crt;

begin

Clrscr;

writeln ('Chao cac ban!');

writeln('Minh ten la Nguyen Mai Phuong ');

writeln('Minh hoc lop 8A4');

readln;

end.

đáp án nha

8 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

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

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

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

write('Tong la; ',t);

readln

end.

12 tháng 5 2022

Tham khảo

program oken;
uses crt;
var a: array [1..100] of real;
    i,n,dy,dtb,dk,dg:integer;
begin
        clrscr;
        write('Co bao nhieu ban can nhap diem: '); readln(N);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                        if a[i]<5 then
                                dy:=dy+1
                        else if a[i]<6.4 then
                                dtb:=dtb+1
                        else if a[i]<7.9 then
                                dk:=dk+1
                        else
                                dg:=dg+1;
                end;
        writeln('So ban hoc yeu: ',dy);
        writeln('So ban hoc trung binh: ',dtb);
        writeln('So ban hoc kha: ',dk);
        writeln('so ban hoc gioi: ',dg);
        readln;
end.

12 tháng 5 2022

program Phanloai;

uses crt;

Var i, n, Gioi, Kha, Trungbinh, Kem: integer;

      A: array[1..100] of real;

Begin

clrscr;

write('Nhap so cac ban trong lop, n = '); readln(n);

writeln('Nhap diem:');

For i:=1 to n do Begin write(i,'.'); readln(a[i]); End;

Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;

for i:=1 to n do

   begin

        if a[i]>=8.0 then Gioi:=Gioi+1;

        if a[i]<5 then Kem:=Kem+1;

        if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;

        if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1

     end;

writeln('Ket qua hoc tap:');

writeln(Gioi,' ban hoc gioi');

writeln(Kha,' ban hoc kha');

writeln(Trungbinh,' ban hoc trung binh');

writeln(Kem,' ban hoc kem');

readln

End.

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

for (i=1; i<=n; i++) cin>>a[i];

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

#include <bits/stdc++.h>
using namespace std;
int n,x,i,cnt,res;
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
    cin>>x;
    if(x%cnt==0) res++;
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
return 0;
}

 

 

#include <bits/stdc++.h>
using namespace std;
const int gh=1000;
int n,x,i,cnt,res,dem[gh];
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
    cin>>x;
    if(x%cnt==0) { res++; dem[res]=x;}
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
cout<<"\n"<<"cac phan tu do la: "<<"\n";
for(i=1;i<=res;i++)
    cout<<dem[i]<<" ";
return 0;
}

// đây mới đúng mik đọc lỗi đề nha bạn!!

23 tháng 10 2021

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1);

readln(st2);

writeln('Ten minh ',st1);

writeln('Lop ',st2);

readln;

end.

27 tháng 10 2021

cảm ơn nhìu ạ

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

Em cảm ơn nhiều ạ!

uses crt;

var i,t:longint;

begin

clrscr;

t:=0;

for i:=1 to 2019 do 

  t:=t+i;

writeln(t);

readln;

end.

uses crt;

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

i,n,t1,t2,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

dem1:=0;

t2:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

inc(dem1);

end

else begin

t2:=t2+a[i];

inc(dem2);

end;

end;

writeln('Trung binh cac so chan la: ',t1/dem1:4:2);

writeln('Trung binh cac so le la: ',t2/dem2:4:2);

readln;

end.

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

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

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.