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.

Input: a,b,c

Output: (a+b+c)/3

2 tháng 1 2022

Bạn ơi ; cho mình xin phần mô tả thuật toán 

21 tháng 12 2016

program bai_5;

uses crt;

var a,b,c :real;

BEGIN

write('nhap vao so a'); Readln(a);

write('nhap vao so b'); Readln(b);

write('nhap vao so c'); Readln(c);

if a<0 then a:=-a;

max:=a;

if max <b then max:=b;

if max<c then max:=c;

write('gia tri tuyet doi cua a la:',a);

write('so lon nhat trong ba so a,b,c la:',max);

Readln

END.

Thanks

30 tháng 11 2017

cái ĐCM trả lời thì hẳn hoi coi đánh cái j nữa ko hiểu

Steve trưc nhật vì vậy hôm nay bạn đến trường sớm, giặt khăn lau bảng và xóa bảng. Đang xóa bỗng Steve nhận thấy dãy số mà mình đã xóa một phần khá đặc biệt, phần đầu của nó là 1 2 3 2 3 4 3 4 5 4 5 6 5 6 7 Đáng tiếc, phần còn lại của dãy đã bị xóa mất. Cuối cùng Steve cũng xóa xạch bảng trước khi trống vào lớp vang lên, nhưng dãy số trên vẫn...
Đọc tiếp

Steve trưc nhật vì vậy hôm nay bạn đến trường sớm, giặt khăn lau bảng và xóa bảng. Đang xóa bỗng Steve nhận thấy dãy số mà mình đã xóa một phần khá đặc biệt, phần đầu của nó là

1 2 3 2 3 4 3 4 5 4 5 6 5 6 7

Đáng tiếc, phần còn lại của dãy đã bị xóa mất. Cuối cùng Steve cũng xóa xạch bảng trước khi trống vào lớp vang lên, nhưng dãy số trên vẫn cứ lởn vởn mãi trong đầu.

Buổi tối, khi lên giường ngủ, Steve lại nghĩ về dãy số này. Steve nhận thấy số 1 xuất hiện 1 lần trong dãy, số 2 xuất hiện 2 lần và lần đầu ở vị trí thứ 2, số 3 xuất hiện 3 lần và lần đầu ở vị trí thứ 3, nhưng số 4 thì lần đầu tiên xuất hiện không ở vị trí thứ 4. Tổng quát hơn số k sẽ xuất hiện lần đầu ở vị trí thứ mấy trong dãy.

Bạn có thể giúp Steve tìm ra vị trí xuất hiện đầu tiên của số nguyên k(k<=1 tỷ) trong dãy không?

VD: NUM25.inp :5

NUM25.out :9

vậy vị trí xuất hiện đầu tiên của 5 trong dãy số đó là 9

2
22 tháng 2 2019

đau đầu quá!

23 tháng 2 2019

dễ mà, chỉ là t ko làm dc k=1 tỷ thôi

uses crt;

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

n,i,max,min,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do 

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

min:=a[1];

for i:=1 to n do 

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

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

writeln('Trung binh cua day so la: ',t/n:4:2);

readln;

end.

-Cho số n ở hệ cơ số 10, có không quá 20 chữ số và không chứa các số 0 không có nghĩa ở đầu. Bằng cách xóa một hoặc một vài chữ số liên tiếp của n (nhưng không xóa hết tất cả các chữ số của n) ta nhận được những số mới. Số mới được chuẩn hóa bằng cách xóa các chữ số 0 vô nghĩa nếu có. Tập số nguyên D được xây dựng bằng...
Đọc tiếp

-Cho số n ở hệ cơ số 10, có không quá 20 chữ số và không chứa các số 0 không có nghĩa ở đầu. Bằng cách xóa một hoặc một vài chữ số liên tiếp của n (nhưng không xóa hết tất cả các chữ số của n) ta nhận được những số mới. Số mới được chuẩn hóa bằng cách xóa các chữ số 0 vô nghĩa nếu có. Tập số nguyên D được xây dựng bằng cách đưa vào nó số n, các số mới khác nhau đã chuẩn hóa và khác n. Ví dụ, với n = 1005 ta có thể nhận được các số mới như sau:

♦ Bằng cách xóa một chữ số ta có các số: 5 (từ 005), 105, 105, 100;

♦ Bằng cách xóa hai chữ số ta có các số: 5 (từ 05), 15, 10;

♦ Bằng cách xóa 3 chữ số ta có các số: 5 và 1.

-Tập D nhận được từ n chứa các số {1005, 105, 100, 15, 10, 5, 1}. Trong tập D này có 3 số chia hết cho 3, đó là các số 1005, 105 và 15.

-Yêu cầu: Cho số nguyên n. Hãy xác định số lượng số chia hết cho 3 có mặt trong tập D được tạo thành từ n.

-Dữ liệu: Vào từ file văn bản NUMSET.INP gồm một dòng chứa số nguyên n.

- Kết quả: Đưa ra file văn bản NUMSET.OUT một số nguyên – số lượng số chia hết cho 3 tìm được.

VD: dayso.inp:5

dayso.out:9

0
3 tháng 12 2017

Bai1: a) \(sqr\left(5-1\right)\) mod 3

b) \(sqr\left(10\right)+\left(25-4\right)\)/4

Bai2:Xác định bải toán

Input : Chiều dài b và chiều rộng a.

Output: Diện tích và chu vi thửa ruộng.

Thuật toán

B1:Nhập a,b

B2:CV<-- (a+b)*2

Và S<--a*b

B3: -Thông báo lên màn hình diện tích là s

-Và chu vi là cv

23 tháng 12 2019

fsa

25 tháng 5 2021

program im_14424;

uses crt;

var A: array[1..100000] of integer;

S,i,n: integer;

begin

clrscr;

write('Nhap vao n: ');

readln(n);

S:=0;

for i:=1 to n do

begin

write('Nhap A[',i,']: ');

readln(A[i]);

if (A[i] mod 2 = 0 then S:=S+i;

end;

write(S);

readln

end.

25 tháng 5 2021

Chú ý dùng 14 có mở ngoặc nên có đóng ngoặc câu lệnh bạn nhé ^^

if (A[i] mod 2 = 0) then S:=S+i;

uses crt;

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

n,i:integer;

begin

clrscr;

repeat

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

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.