Câu 13: Viết chương trình nhập vào năm sinh, hiển thị thông báo số tuổi trong năm hiện tạiCâu 14: Nhập vào 2 số nguyên dương. Hiển thị số lớn nhất (hoặc bé nhất)Câu 15: Kiểm tra số nguyên dương n có c...

VD

Võ Đỗ Đăng Khoa

26 tháng 12 2021

Câu 13: Viết chương trình nhập vào năm sinh, hiển thị thông báo số tuổi trong năm hiện tạiCâu 14: Nhập vào 2 số nguyên dương. Hiển thị số lớn nhất (hoặc bé nhất)Câu 15: Kiểm tra số nguyên dương n có chia hết cho 3 hay không?Các bạn giúp mình với mình sắp thi học kì rồi !Cảm ơn nhiều lắm...

Đọc tiếp

#Tin học lớp 8

0

PH

phạm hương trà

26 tháng 11 2016

a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N

VD N=5 thì in ra 5!=120

b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông

VD N=10 thì tổng số chẵn là 30

c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố

#Tin học lớp 11

1

CC

Công Chúa Sakura

4 tháng 1 2017

a)

uses crt;

VAR

n, d, i: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

d : = 1;

For i: = 1 to n do

d: = d*i;

Writeln ('d=',d);

Readln;

END.

c)

uses crt;

VAR

n, i, demuoc: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

demuoc: = 0;

For i: = 1 to n do

If n mod i = 0 then

demuoc : = demuoc + 1;

If demuoc = 2 then

Writeln ('n la so nguyen to')

ELSE

Writeln ('n khong phai la so nguyen to');

Readln ;

END.

Còn phần b bạn tự nghĩ nha!

Chúc bạn học tốt!

Đúng(0)

BM

Bùi Minh Dũng

26 tháng 5 2021

Viết chương trình Pascal thực hiện các yêu cầu sau:

- Nhập vào một dãy số gồm N số nguyên

- Hiển thị dãy số vừa nhập

- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên

#Tin học lớp 8

2

NA

nguyễn an phát

26 tháng 5 2021

program max_min;

uses crt;

var i,n,max,min:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

writeln;

max:=a[1];min:=a[1];

for i:=1 to n do

begin

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

if a[i]<min then min:=a[i];

end;

writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);

readln;

end.

Đúng(1)

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.

Đúng(0)

V

Vochehoang

13 tháng 4 2021

Viết chương trình nhập vào một số nguyên gồm n phần tử. Tính tổng của các phần tử của các dãy số đó.Viết chương trình nhập vào một mảng số nguyên gồm n phần tử . Nhập vào một số nguyên x bất kì a) Kiểm tra x có trong dãy hay ko hiển thị vị trí của x b) Đếm xem x xuất hiện bao nhiêu lầnMọi người giúp vs , cần gấp...

Đọc tiếp

#Tin học lớp 8

2

NL

Nguyễn Lê Phước Thịnh

13 tháng 4 2021

Câu 1:

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

t:=t+a[i];

writeln(t);

readln;

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

13 tháng 4 2021

Câu 2:

uses crt;

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

i,n,x,dem,kt:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

kt:=0;

dem:=0;

for i:=1 to n do

if a[i]=x then

begin

kt:=1;

write(i:4);

inc(dem);

end;

if kt=0 then writeln('Khong co ',x,' trong day');

writeln(x,' xuat hien ',dem,' lan trong day');

readln;

end.

Đúng(1)

P

phamthiminhanh

19 tháng 1 2021

Câu 1: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra a,b cùng dáu hay trái dấu ( cùng âm hoặc cùng dương hoặc âm, dương hoặc dương, âm)

Câu 2: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra tính chẵn lẻ ( cùng lẻ hoặc cùng chẵn hoặc.......)

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

20 tháng 1 2021

Câu 1:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong');

readln;

end.

Câu 2:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');

if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');

if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');

if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');

readln;

end.

Đúng(1)

AA

Alo Alo

21 tháng 1 2021

ko hiểu gì

Đúng(0)

TP

Trần Phúc Tâm

9 tháng 11 2021

Viết chương trình nhập vào 2 số n và m đều là nguyên dương. Kiểm tra 2 số đó có phải là cặp số thân thiết hay không và hiển thị ra màn hình kết quả kiểm tra.Chú ý: Hai số tạo thành một cặp số thân thiết khi chúng tuân theo quy luật: Số này bằng tổng tất cả các ước của số kia (trừ chính số đó) và ngược...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

9 tháng 11 2021

#include <bits/stdc++.h>
using namespace std;
long long n,m;
//chuongtrinhcon
long long tcs(long long n)
{
long long t=0;
for (i=1; i<=n-1; i++)
if (n%i==0) t=t+i;
return(t);
}
//chuongtrinhchinh
int main()
{
cin>>n>>m;
if ((tcs(n)==m) and (tcs(m)==n)) cout<<"Yes";
else cout<<"No";
}

Đúng(0)

D

Dung

29 tháng 3 2022

viết chương trình nhập vào 2 số nguyên dương m và n thông báo ra màn hình ước chung lớn nhất của 2 số vừa nhập.

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

30 tháng 3 2022

#include <bits/stdc++.h>

using namespace std;

long long a,b;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>a>>b;

cout<<ucln(a,b);

return 0;

}

Đúng(0)

NV

Nguyen Van Anh

28 tháng 10 2021

Viết chương trình nhập vào một số nguyên dương n hữu hạn bất kỳ hiển thị ra màn hình các số lẻ trong đoạn từ 1 đến n. Giải giúp em với ạ!

#Tin học lớp 11

1

VD

Võ Đức Dũng

28 tháng 10 2021

program vdd;

uses crt;

var i,n: integer;

begin

clrscr;

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

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

readln

end.

Đúng(1)

BM

Bùi Minh Dũng

26 tháng 5 2021

Viết chương trình Pascal thực hiện các yêu cầu sau:

- Nhập vào một dãy số gồm N số nguyên

- Hiển thị dãy số vừa nhập

#Tin học lớp 8

1

NA

nguyễn an phát

26 tháng 5 2021

program max_min;

uses crt;

var i,n:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Đúng(1)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP