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.

uses crt;

var n,i:longint;

kt:boolean;

begin

clrscr;

readln(n);

if (n<2) then writeln('Nhap lai')

else 

begin

kt:=true;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then

begin

kt:=false;

break;

end;

if kt=true then writeln('la so nguyen to')

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

end;

readln;

end.

 Đề thi gồm 02 bài thi: Bài 1: Viết chương trình theo yêu cầu: Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. Ví du: Mời bạn nhập vào số N: 6 So thu 1:  So thu 2: 84  So thu 3: 75 So thu 4: 6 So thu 5: 69 So thu 6: 33 Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 Chuoi so sau khi sap xep tang dan la: 3,...
Đọc tiếp

 

Đề thi gồm 02 bài thi: 

Bài 1

Viết chương trình theo yêu cầu: 

Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) 

Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. 

Ví du: 

Mời bạn nhập vào số N: 6 

So thu 1:  

So thu 2: 84  

So thu 3: 75 

So thu 4: 6 

So thu 5: 69 

So thu 6: 33 

Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 

Chuoi so sau khi sap xep tang dan la: 3, 6, 33, 69, 75, 84  

Bài 2:

Viết chương trình theo yêu cầu: 

Chi phí tiêu dùng của một gia đình chủ yếu gồm 4 loại sau: tiền điện, tiền nước, tiền ga và tiền điện thoại  (Lưu ý: số tiền sử dụng là số nguyên dương ) 

Nhập số tiền 4 loại chi phí (tiền điện, tiền nước, tiền ga và tiền điện thoại) từ bàn phím 

In ra màn hình tổng chi phí chi tiêu trong tháng?    

Help me pléae

 

1

1:

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n;

int main()

{

cin>>n;

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

cout<<"Day ban dau la: "<<endl;

for (i=1;i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

sort(a+1,a+n+1);

cout<<"Day tang dan la: "<<endl;

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

13 tháng 12 2016

uses crt;

var a,b:longint;

Begin

clrscr;

Writeln('Nhap a,b=');

Readln(a,b);

writeln('tich hai so la : a*b=',a*b);

writeln('thuong hai so la :a/b=',a/b);

Readln;

End.

13 tháng 12 2016

mk chịu!!

16 tháng 5 2023

Var n,sc,sl,i:longint;

Begin

Write('N = ');readln(n);

Write('Cac so tu 1 den ',n,' la ');

For i:=1 to n do

Write(i:8);

Writeln;

For i:=1 to n do

Begin

If i mod 2 = 0 then sc:=sc+i

Else sl:=sl+i;

End;

Writeln('Tong cac so chan la ',sc);

Write('Tong cac so le la ',sl);

Readln

End.

25 tháng 11 2017

#include <stdio.h>

#include <math.h>

int main() {

int n,a;

printf("Nhap vao so nguyen duong: ");

scanf("%d", &n);

if(n>0)

{

a=sqrt(n);

if((a*a)==n)

printf("So ban da nhap vao la so chinh phuong");

else

printf("So ban da nhap vao ko phai la so chinh phuong");

26 tháng 11 2017

Bạn ơi câu này là CLB đội tuyển Tin học lớp 6 đó chứ bạn viết cái gì dzậy trời

17 tháng 5 2020

mình ko thấy

giúp mình đi

uses crt;

var n,i,t:int64;

begin

clrscr;

repeat

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

until (0<n) and (n<1000000000);

t:=0;

for i:=1 to n-1 do

if n mod i=0 then t:=t+i;

if t=n then writeln(n,' la so hoan hao')

else writeln(n,' khong la so hoan hao');

readln;

end.

4 tháng 1 2017

Mik học tin cx đc nhưng lâu quá rùi nên cx quên rùi

4 tháng 1 2017

Hic! khocroi

13 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

string n;

int d;

int main()

{

cin>>n;

d=n.length();

cout<<d;

return 0;

}

uses crt;

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

i,n,t1,t2,t3:integer;

begin

clrscr;

readln(n);

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

t1:=0;

t2:=0;

t3:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

if (a[i] mod 2=0) and (a[i] mod 3=0) then t3:=t3+a[i];

end;

writeln(t1);

writeln(t2);

writeln(t3);

readln;

end.

14 tháng 4 2022

Khi bn nhắn mik bt lm r

hihi