1 Nhập 3 số a, b , c từ bàn phím . Viết chương trình kiểm tra xem nó có phải là 3 cạnh của tam giác không . Nếu là 3 cạnh của tám giác thì là tam giác gì . In kết quả ra màn hình .
viết chương trình dưới dạng vd a=int(input())
Phần mềm học tập
24 tháng 11 2022 lúc 19:10
Viết chương trình nhập vào một dãy số nguyên n trong mảng A; thực hiện tính tổng dãy số đó trong mảng A; sau đó thực hiện tìm giá trị lớn nhất trong mảng;
uses crt;
var a:array[1..100]of integer;
i,n,t,ln:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
ln:=a[1];
for i:=1 to n do
begin
t:=t+a[i];
if ln<a[i] then ln:=a[i];
end;
writeln(t);
writeln(ln);
readln;
end.
Đúng 2
Bình luận (0)
Bài tập PSC55: Lập chương trình nhập vào một dãy số. Tìm phần tử lớn nhất, nhỏ nhất và vị trí của nó trong dãy vừa nhập. In ra màn hình theo quy tắc:Dòng thứ 1: số đầu tiên là giá trị lớn nhất, số thứ 2 là vị trí của nóDòng thứ 2: số đầu tiên là giá trị nhỏ nhất, số thứ 2 là vị trí của nó.Giả sử trong dãy không có cặp số nào bằng nhau
Đọc tiếp
Bài tập PSC55: Lập chương trình nhập vào một dãy số. Tìm phần tử lớn nhất, nhỏ nhất và vị trí của nó trong dãy vừa nhập. In ra màn hình theo quy tắc:
Dòng thứ 1: số đầu tiên là giá trị lớn nhất, số thứ 2 là vị trí của nó
Dòng thứ 2: số đầu tiên là giá trị nhỏ nhất, số thứ 2 là vị trí của nó.
Giả sử trong dãy không có cặp số nào bằng nhau
Viết chương trình Nhập vào mảng hai chiều cấp nxm, tính tổng các phẩn tử trong ma trận. Tỉnh tổng các phần tử lớn nhất tren mỗi hàng. Sắp xếp mảng theo thứ thự tăng dần(pascal)
Nhanh tay lên các bro ơi!!!
uses crt;
var a:array[1..100,1..100]of integer;
n,m,i,t1,t,ln:integer;
begin
clrscr;
readln(n,m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
t:=0;
for i:=1 to n do
for j:=1 to m do
t:=t+a[i,j];
writeln(t);
t1:=0;
for i:=1 to n do
begin
ln:=a[i,1];
for j:=1 to m do
if ln<a[i,j] then ln:=a[i,j];
t1:=t1+ln;
end;
writeln(t1);
readln;
end.
Đúng 1
Bình luận (0)
Liệt kê tất các các ước số nguyên tố của số nguyên dương n?
#include "stdio.h"
#include "conio.h"
#include "math.h"
//-----------------------------
void souoc( designed n)
{
for( int i=1;i<=n;i++)
if(n%i==0)
printf("%d",i);
}
//----------------------------
void main()
{
clrscr();
designed n;
printf("\n nhap n: ");
scanf("%d",n);
printf("\n cac uoc so la:");
souoc(n);
getch();
}
Đúng 1
Bình luận (1)
Viết chương trình Nhập vào mảng hai chiều cấp nxm, tính tổng các phẩn tử trong ma trận. Tính tổng các phần tử lớn nhất trên mỗi hàng. Sắp xếp mảng theo thứ thự tăng dần trong pascal
uses crt;
var a:array[1..100,1..100]of integer;
n,m,i,t1,t,ln:integer;
begin
clrscr;
readln(n,m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
t:=0;
for i:=1 to n do
for j:=1 to m do
t:=t+a[i,j];
writeln(t);
t1:=0;
for i:=1 to n do
begin
ln:=a[i,1];
for j:=1 to m do
if ln<a[i,j] then ln:=a[i,j];
t1:=t1+ln;
end;
writeln(t1);
readln;
end.
Đúng 1
Bình luận (1)
Cho một số nguyên dương n (n ≤ 1 tỷ). Tìm chữ số nhỏ nhất, chữ số lớn nhất trong
các chữ số của n. Ví dụ: n = 52365487 chữ số nhỏ nhất là 2, chữ số lớn nhất là 8.
Program HOC24;
var n: word;
t,min,max: byte;
begin
write('Nhap N= '); readln(n);
min:=n mod 10;
max:=n mod 10;
while n<>0 do
begin
t:=n mod 10;
if min>t then min:=t;
if max<t then max:=t;
n:=n div 10;
end;
writeln('Chu so nho nhat la: ',min);
write('Chu so lon nhat la: ',max);
readln
end.
Đúng 0
Bình luận (1)
var n: word;
t,min,max: byte;
begin
write('Nhap N= '); readln(n);
min:=n mod 10;
max:=n mod 10;
while n<>0 do
begin
t:=n mod 10;
if min>t then min:=t;
if max<t then max:=t;
n:=n div 10;
end;
writeln('Chu so nho nhat la: ',min);
write('Chu so lon nhat la: ',max);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào họ tên , điểm toán , điểm văn , điểm tin và tính điển bình quân bằng tổng trung bình cộng của 3 môn trên
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<(a+b+c)/3;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 dãy số gồm n số ( n được nhập từ bàn phím) . Đếm xem trong dãy có bao nhiêu số âm ,bao nhiêu số dương ( Biết số âm là những số < 0, số dương là những số >0) giúp mình vớiii mai mình thi gòiiii
progam bai1;
var a: array[1..32000] of integer ;
i,n,dem1,dem2 : integer ;
begin
write('n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem1:=0; dem2:=0;
for i:= 1 to n do
begin
if a[i]>0 then dem1:=dem1+1;
if a[i]>0 then dem1:=dem2+1;
end;
write('Cac so nguyen am trong day la:',dem1);
writeln;
write('Cac so nguyen am trong day la:',dem2);
readln;
end.
Đúng 1
Bình luận (0)
Tìm hiểu lệnh lặp While ... do và thực hiện các bài tập sauBài tập 1: Viết chương trình nhập vào số a. Cho biết phần nguyên của thương và phần dư của phép chia a cho 15 ra màn hình.Bài tập 2: Viết chương trình nhập vào số n (1000 n 10000). Liệt kê các chữ số của số n. Ví dụ (n 9872 kết quả: 2 7 8 9)Bài tập 3: Viết chương trình nhập vào số n (1000 n 10000). Tính tổng các chữ số của số n. Ví dụ (n 9872 kết quả: s 2 + 7 + 8 + 9 26)
Đọc tiếp
Tìm hiểu lệnh lặp While ... do và thực hiện các bài tập sau
Bài tập 1: Viết chương trình nhập vào số a. Cho biết phần nguyên của thương và phần dư của phép chia a cho 15 ra màn hình.
Bài tập 2: Viết chương trình nhập vào số n (1000 < n < 10000). Liệt kê các chữ số của số n. Ví dụ (n = 9872 => kết quả: 2 7 8 9)
Bài tập 3: Viết chương trình nhập vào số n (1000 < n < 10000). Tính tổng các chữ số của số n. Ví dụ (n = 9872 => kết quả: s = 2 + 7 + 8 + 9 = 26)