Hình tròn:

Chu vi: r*2*3.14

Diện tích: r*r*3.14

Hình vuông:

Chu vi: a*4

Diện tích: a*a

Hình bình hành:

Chu vi: (a+b)*2

Diện tích: a*h

Hình tam giác:

Chu vi: a+b+c = p

Diện tích: \(\sqrt{p.\left(p-a\right).\left(p-b\right).\left(p-c\right)}\)

Hình thang:

Chu vi: a + b+ c+ d

Diện tích: (a+b)*h/2

Hình thoi:

Chu vi: a*4

Diện tích

Thank you

a) sqr(sqr(sqr(x))+3)-2/(sqr(x)*x)+sqr(2x+1)

b) a*x*x*x+3*sqr(a)*x+3*a*sqr(x)+a*x+c

​Spr là gì vj

program tinh_toan;

uses crt;

begin

clrscr;

writeln('nhap so a:',a:6:2); readln(a);

writeln('nhap so b:',b:6:2); readln(b);

tich:=a*b;

hieu:=a-b;

tong:=a+b;

thuong:=a/b;

writeln('tich 1 so bang:',tich:6:2);

writeln('tong 2 so bang:'tong:6:2);

writeln('hieu 2 so bang:'hieu:6:2);

writeln('thuong 2 so bang:',thuong:6:2);

readln

end.

sai rồi kìa bạn

ngôn ngữ C++ mà sao bạn lại viết bằng pascal

Bài 1:

uses crt;

var a:integer;

begin

clrscr;

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

writeln('Chu so hang don vi cua ',a,' la: ',a mod 10);

readln;

end.

Bài 2:

uses crt;
var s:ansistring;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i] in ['A'..'Z'] then inc(dem);
writeln('So luong chu so trong chuoi ky tu ',s,' la: ',dem);
readln;
end.

Có nghĩa là xuất ra kết quả của 5+8

GIẢI HỘ MK NHA

const fi='nto.inp';

fo='nto.out';

var f1,f2:text;

n,i,kt,j:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

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 write(f2,i:4);

end;

close(f1);

close(f2);

end.

uses crt;

var n,i,d,t,x,y:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do

begin

val(st[i],x,y);

t:=t+x;

end;

writeln(n,' co ',d,' chu so');

writeln('Tong cac chu so cua ',n,' la: ',t);

readln;

end.

Program HOC24;

var n,i,d,t: integer;

begin

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

while n<>0 do

begin

t:=t+(n mod 10);

d:=d+1;

n:=n div 10;

end;

writeln('Co ',d,' so chu so');

write('Tong cac chu so la : ',t );

readln

end.