program bai1;
var a:array[1..100] of longint;
n,k,s,i:longint;
tbc:real;
begin
repeat
write('N= ');readln(n);
until n>0;
for i:=1 to n do
begin
write('A[,i,']= ');readln(a[i]);
end;
k:=0;s:=0;
for i:=1 to n do
if (a[i] mod 5=0) then
begin
s:=s+a[i];
k:=k+1;
end;
tbc:=s/k;
writeln('Trung binh cong la ',tbc)l
readln
end.
Lập trình pascan đưa ra màn hình các phần tử của mảng 1 chiều là số nguyên tố
Viết chương trình nhập vào số nguyên dương N. Kiểm tra và thông báo ra màn hình N có vừa là số chẵn vừa chia hết cho 3 hay không?
Bài 1: Viết chương trình nhập 1 số nguyên dương n có 3 chữ số.Hãy thông báo ra màn hình tổng các chữ số của nó. Bài 2: giống bài trên nhưng là 5 chữ số. Giúp mình với ạ, mình cần gấp :
Viết chương trình giải các bài toán sau:
1. Nhập cạnh a của một hình vuông. Tính chu vi và diện tích hình vuông đó
2. Một người đi xe đạp với tốc độ 10km/h và một người đi xe máy với tốc độ 30km/h cùng xuất phát từ một vị trí, tại cùng một thời điểm và đi cùng một hướng. Lập trình tính khoảng cách giữa 2 người sau t giờ (t là số nguyên dương, t<=15). Dữ liệu t nhập từ bàn phím. Kết quả đưa ra màn hình.
( SỬ DỤNG PHẦN MỀM PYTHON Ạ )
Viết chương trình : Tính điểm thi HK1 Điều kiện điểm >=5 =đỗ Điểm
Viết chương trình nhập vào 1 số nguyên n rồi đưa ra màn hình các kết quả
- Giá trị tuyệt đối của n
- bình phương của n
- số dư của bình phương n chia 3
program bai3;
type KM=array [1..100]of LongInt ;
var a,b:KM;
i,N,t:Integer;
begin
write('nhap N =');Readln(N);
t:=0;
for i:=1 to n do
begin
Write('nhap a [',i,']=');
readln (a[i]);
if (a[i] mod 2=0) then [i]:=sqr(b[i])
else b[i]:=a[i];
end;
readln;
end.
a) Với N= 6
A= 5 6 3 4 5 8
B=?
b)Với N = 6
A= 5 7 3 1 11 15
B= ?
Viết chương trình nhập từ bàn phím 2 số nguyên dương (<225) là chiều dài 2 cạnh của hình chữ nhật. Tính chu vi và diện tích của hình chữ nhật và hiển thị kết quả ra màn hình.
Giúp mình bài này ạ. Mình cảm ơn <3
