Phần mềm học tập - Hỏi đáp

45 div 2 mod 3+1=22 mod 3+1=1+1=2

program nhap_thang_trong_nam ;

var a : integer ;

begin

write('nhap thang '); readln(a);

write('thang trong nam la',a);

readln

end.

Cho em bổ sung thêm là động mạch nách và tĩnh mạch nách nữa ạ

var i,n:integer;

x,y,A:real;

begin

write('Nhap gia tri cho x va n');

readln(x,n);

A:=0;

y:=1;

for i:=1 to n do

begin

y:=y*sin(x);

A:= A + y;

end;

write('Tong A la: ',A:8:4);

readln

end.

uses crt;
var n,i:integer;
s:real;
{------------------chuong-trinh-con----------------------}
function gt(var x:integer):real;
var t:longint;
tich:real;
begin
t:=1;
tich:=0;
for i:=1 to n do
begin
t:=t*i;
tich:=tich+1/t;
end;
gt:=tich;
end;
{---------------------chuong-trinh-chinh-------------------}
begin
clrscr;
write('nhap n='); readln(n);
s:=gt(n);
writeln('tong cua day la: ',s:4:2);
readln;
end.

Mình rút gọn câu a với câu b của bạn Nguyễn Lê Phước Thịnh ( đề HSG cấp trường mới làm ):

a/ Uses crt;
Var i,n,d:integer;
Begin
Clrscr;
d:=0;
write('Nhap n= '); readln(n);
n:=abs(n);
while n>0 Do
Begin
n := n div 10;
d:=d+1;
end;
writeln('Co ',d,' chu so');
Readln
End.

b/ Uses crt;

Var n , s , k: integer;

Begin

Write(‘ Nhap n=’); Readln(n);

S := 0;

While n<>0 do

Begin

k := n mod 10;

n := n div 10;

S := S + k;

End;

Writeln( ‘Tong cac chu so la: ',S);

Readln;

End.

đơn giản mà

uses crt;
var n:longint;
st:string;
i,d,t,x,y,j,t1,a,dem,kt,t2:integer;
ngto:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
writeln('so chu so cua so ',n,' la: ',d);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('tong cac chu so cua ',n,' la: ',t);
{---------------------cau-c--------------------------}
writeln('cac so hoan thien nho hon hoac bang ',n,' la: ');
for j:=1 to n do
begin
a:=j;
t1:=0;
for i:=1 to a-1 do
if a mod i=0 then begin
t1:=t1+i;
end;
if t1=a then write(a,' ');
end;
{---------------------cau-d---------------------------}
writeln;
dem:=0;
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
ngto[dem]:=i;
end;
end;
t2:=0;
for i:=1 to dem do
t:=t+sqr(ngto[i]);
writeln('tong binh phuong cac so nguyen to tu 1 toi ',n,' la: ',t);
readln;
end.

Program hotrotinhoc;

var n,x,i: integer;

s: real;

function t1(d: integer): longint;

var i,t: longint;

begin

t:=1;

for i:=1 to d do t:=t*i;

t1:=t;

end;

function t2(a,b: integer): longint;

var i,tg: integer;

begin

tg:=1;

for i:=1 to a do tg:=tg*b;

t2:=tg;

end;

begin

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

write('x='); readln(x);

s:=1;

for i:=1 to n do

if i mod 2=1 then s:=s-((t2(i,x))/(t1(i))) else s:=s+((t2(i,x))/(t1(i)));

write(s:1:2);

readln

end.

chắc bị lỗi bàn phím

Program Cau2;

Uses crt;

Var i,n,max,min: integer;

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

Begin

Clrscr;

Write(‘ Nhap do dai cua day so, n= ‘);

Readln(n);

Writeln(‘Nhap cac phan tu cua day so: ‘);

For i:= 1 to n do

Begin

Write(‘a[‘, i, ‘]= ‘);

Readln(a[i]);

End;

max:= a[1];

min:= a[1];

For i:= 2 to n do

Begin

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

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

End;

Writeln(‘So lon nhat la max= ‘, max);

Writeln(‘So nho nhat la min= ‘, min);

Readln;

End.

C1:

C1:

Program Max_Min;

Uses crt;

Var a,b,c,d:integer;

max,min:integer;

Begin

clrscr;

write('nhap so thu nhat :'); readln(a);

max:=a; min:=a;

write('nhap so thu hai :'); readln(b);

if maxb then min:=b;

write('nhap so thu ba :'); readln(c);

if maxc then min:=c;

write('nhap so thu tu :'); readln(d);

if maxd then min:=d;

writeln('So lon nhat la :',max);

writeln('So nho nhat la :',min);

readln; End.

3) Program Sara_Trang;

uses crt;

var x:integer;

Begin

clrscr;

Write('Nhap so x:'); Readln(x);

If x>0 then Writeln('La so duong');

If x<0 then Writeln('Khong la so duong');

If x=0 then Writeln(' Khong la so duong cung khong la so am');

Readln

End.

2)

bước 1:nháy chuột trên hình để chọn hình ảnh đó

bước 2:chọn Format+Picture+layout

. Công cụ Hand di chuyển hình ảnh trong cửa sổ .

Tên chương trình: có dấu cách, sửa: tinh_tong;

Khai báo biến sai cấu trúc, sửa : thay := thành :

Lệnh gán biến tong sai, sửa : tong:=a+b;

End thiếu chấm, sửa : end.

- program: có dấu cách

sửa: program tinh_tong;

- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán

sửa: var a, b, tong : integer;

- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị

sửa: tong := a+b;

- kết thúc chương trình: end viết thiếu

sửa: end.