viet chuong trinh nhap so n nguyen duong (n<=100) sau do tinh tong cai so tu 1 den N viet ket qua ra man hinh
viet chuong trinh nhap so n va xuat ra so vua nhap(n la so nguyen)
Uses crt;
var n:integer;
Begin
clrscr;
Writeln('Nhap so n= '); Readln(n);
Write('So vua nhap la ',n);
Readln
End.
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
viet chuong trinh nhap vao so mguyen n va day so gom n la so nguyen tu ban phim in ra man hinh so lon nhat trong day so nguyen vua nhap
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap 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;
max:=a[1];
for i:= 1 to n do if max<a[i] then max:=a[i];
write('So lon nhat la:',max');
readln
end.
Viet chuong trinh nhap n so nguyen tu ban phim (do dai day so nhap tu ban phim);
a.In ra cac so nguyen duong
b.In ra man hinh cac so ngto trong day so vua nhap
Mn giup ban mik vs giai giup mik bai nay nha
Cam on aj
uses crt;
var a:array[1..100]of integer;
n,i,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so nguyen duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
viet chuong trinh nhap vao so nguyen N. tinh va in ra man hinh tong cac so le trong pham vi N
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
viet chuong trinh tinh tong cac so co gia tri khac nhau trong day n so nguyen (1<n<1000) duoc nhap tu ban phim
viet chuong trinh nhap vao mot day so nguyen dua ra man hinh tong so nguyen am trong day so
#include <bits/stdc++.h>
using namespace std;
long long t,i,n,x;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<0) t=t+x;
}
cout<<t;
return 0;
}
viet chuong trinh tinh dien tich tam giac voi chieu cao va canh day la 2 so nguyen duong nhap tu ban phim
Giup vs 1 Gp cho cau tl dung
Program DIEN_TICH_TAM_GIAC;
uses crt;
var a,h,s:integer;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s);
Readln
End.
xin lỗi bạn
mình xin sửa lại
uses crt;
var a,h:integer;
s:real;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s:4:2);
Readln
End.
viet chuong trinh nhap vao mang so nguyen a(toi da 100 phan tu) tu ban phim in len man hinh cac phan tu chia het cho K (khong duoc nhap vao tu ban phim khi chay chuong trinh) trong mang