câu 1 viết chương trình nhập vào hai số a và b kiểm tra xem hai số này có cùng dấu hay không?câu 2 viết chương trình nhập vào hai số a và b xuất ra màn hình kết quả so sánh (>,

NT

Nguyễn Thành Ý

4 tháng 12 2020 - olm

câu 1 viết chương trình nhập vào hai số a và b kiểm tra xem hai số này có cùng dấu hay không?câu 2 viết chương trình nhập vào hai số a và b xuất ra màn hình kết quả so sánh (>,<,=)?đây là tin học lớp 8 nha .Các bạn giúp mình với mai mình phải nộp rồiMình cảm ơn...

Đọc tiếp

#Tin học lớp 8

1

K

KhảTâm

9 tháng 12 2020

1,

program so_nguyen;

uses crt;

var a,b:real;

begin

writeln('Nhap so thu nhat');,readln(a);

writeln('Nhap so thu hai');readln(b);

If (a>0) and (b>0) then writeln('cung dau') else write('khong cung dau');

If (a<0) and (b<0) then writeln('cung dau') else write('khong cung dau');

2,, program so_nguyen;

uses crt;

var a,b:real;

begin

writeln('Nhap so thu nhat');,readln(a);

writeln('Nhap so thu hai');readln(b);

If a>b then write('so thu nhat lon hon');

If a<b then write('so thu hai lon hon');

readln

end.(Pascal nha) - Có thể dùng If...then... hoặc while...do...

Đúng(0)

NC

Nguyễn Cảnh Hùng

18 tháng 10 2017

Viết chương trình nhập từ bàn phím hai số nguyên a và b khác nhau (a>b), sử dụng câu lệnh điều kiện để kiểm tra xem a chia het cho b hay không, thông báo ra màn hình.

#Tin học lớp 8

2

DN

Đỗ Ngọc Trinh

18 tháng 10 2017

Đúng(0)

K

KhảTâm

9 tháng 12 2020

program chia_het;

uses crt;

var a,b:integer;

begin

writeln('Nhap so thu nhat');readln(a);

writeln('Nhap so thu hai');readln(b);

If (a mod b = 0) then writeln('chia het') else writeln('chia khong het');

readln

end.

Đúng(1)

MU

Mỹ Uyên

24 tháng 12 2020

câu 1 viết chương trình in ra màn hình diện tích và chu vi hình vuông s : =a*a; p:=4*a;câu 2 viết chương trình tính tổng , tích và hiệu của hai số được nhập từ bàn phímcâu 3 viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay không với a,b,c là 3 số nhập từ bàn...

Đọc tiếp

#Tin học lớp 8

1

NL

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

24 tháng 12 2020

Câu 1:

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

writeln('Chu vi hinh vuong la: ',p:4:2);

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2:

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

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

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

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3:

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Đúng(0)

NN

Nguyễn Ngọc Quỳnh Như

3 tháng 4 2019 - olm

1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.

2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.

3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?

#Toán lớp 8

2

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

1.

Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.

2.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

3.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;

Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;

Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.

Đúng(0)

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

câu 1 tham khảo cái này nhé

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,Max:Integer;

Begin

Write('Nhap N='); Readln(N);

For i:=1 To N Do

Begin

Write('A[',i,']='); Readln(A[i]);

End;

Max:=A[1];

For i:=2 To N Do

If Max<A[i] Then Max:=A[i];

Writeln('Phan tu lon nhat cua mang:', Max);

Readln;

End.

Đúng(0)

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)

DH

Dang Hien

8 tháng 12 2021

Giúp mình 2 câu nàyBài 1.Viết chương trình nhập vào 1 cạnh a và chiều cao h của một hình tam giác. Tính và xuất kết quả S của hình tam giác đó ra màn hình.Bài 2. Viết chương trình nhập vào 2 số nguyên a và b. Tính và in kết quả của c và d ra màn hình. Biết c là kết quả của phép chia lấy phần nguyên của avà b, d là kết quả của phép chia lấy phần dư của a và...

Đọc tiếp

#Tin học lớp 8

1

NL

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

19 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b<<endl;

cout<<a/b;

return 0;

}

Đúng(0)

HT

Huy Tùng Vũ

23 tháng 12 2021

Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 100 hay ko , thông báo kết quả ra màn hình

#Tin học lớp 8

0

TL

Tri Le

11 tháng 12 2021

Viết chương trình thực hiện các công việc sau:

a. In ra họ và tên em

b. Nhập vào 2 số nguyên a, b. Tính và in tổng 2 số đó.

C. Kiểm tra xem tổng 2 số đó là số chẵn hay lẻ? In kết quả kiểm tra ra màn hình

#Tin học lớp 8

1

NL

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

11 tháng 12 2021

b:

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

Đú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)

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