Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Hoàng Thị Mỹ Phan
Xem chi tiết
Trương Thi Minh Thiết
Xem chi tiết
Minh Lệ
3 tháng 5 2022 lúc 18:54

Program HOC24;

var s: string;

i: byte;

begin

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

//----------------CAU A

for i:=1 to length(s) do writeln(s[i]);

//-------------------CAU B

for i:=length(s) downto 1 do writeln(s[i]);

readln

end.

nguyễn thanh hà
Xem chi tiết
Phụng Lã
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:42

#include <bits/stdc++.h>

using namespace std;

int A[500],n,i,dem,dem1;

int main()

{

cin>>n;

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

for (int i=n; i>=1; i--) cout<<A[i]<<" ";

cout<<endl;

dem=0;

for (int i=1; i<=n; i++)

if (A[i]<10) dem++;

cout<<dem<<endl;

dem1=0;

for (int i=1; i<=n; i++)

if (A[i]>1)

{

bool kt=true;

for (int j=2; j*j<=A[i]; j++)

if (A[i]%j==0) kt=false;

if (kt==true) dem1++;

}

cout<<dem1;

return 0;

}

SINH HOANG
Xem chi tiết
Ngô Bá Hùng
18 tháng 4 2023 lúc 14:18

program TimDiemCaoNhat;

var
  diem: array[1..30] of integer;
  i, diemCaoNhat, soThuTu: integer;

begin
  for i := 1 to 30 do
  begin
    write('Nhap diem cua ban thu ', i, ': ');
    readln(diem[i]);
  end;
  diemCaoNhat := diem[1];
  soThuTu := 1;
  for i := 2 to 30 do
  begin
    if diem[i] > diemCaoNhat then
    begin
      diemCaoNhat := diem[i];
      soThuTu := i;
    end;
  end;
  writeln('Diem cao nhat la: ', diemCaoNhat);
  writeln('Ban thu ', soThuTu, ' dat diem cao nhat.');
  
  readln;
end.

Trần Triệu Vy
Xem chi tiết
Hoàng Đức Long
Xem chi tiết
Vũ Thành Nam
3 tháng 7 2018 lúc 12:18

Chọn D. Màu trắng

Dựa vào quy tắc trộn ánh sáng khi trộn ba chùm sáng màu đỏ, lục và lam với nhau theo một tỉ lệ thích hợp ta được ánh sáng trắng.

Quỳnh Như
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 4 2021 lúc 19:39

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 100 do 

 begin

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

end;

for i:=1 to 100 do 

  write(a[i]:2);

readln;

end.

Phát Trương Tấn
Xem chi tiết
Minh Lệ
23 tháng 3 2023 lúc 12:17

Program HOC24;

var i,n: integer;

begin

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

for i:=50 to n do if i mod 2=1 then write(i,' ');

readln

end.

feng
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 5 2022 lúc 10:07

uses crt;

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

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=1;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do 

  if nn=a[i] then write(i:4);

writeln;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.