uses crt;

var x,y,z:real;

begin

clrscr;

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

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

z:=abs(1-sqr(x))+abs(1-sqr(y));

writeln('Z=',z:4:2);

readln;

end.

mik làm cả 2 bằng 1 ct nha

var x,y,z1,z2:real;

begin

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

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

z1:=abs(1-sqr(x)) + abs(1-sqr(y));

z2:=abs(1-exp(x)) + abs(1-exp(y));

writeln(' KQ b1 :' ,z1:0:1);

writeln('KQ b2: ',z2:0:1);

readln;

end.

làm bằng phần mềm pascal nhé

- crt: khai báo thư viện crt

- clrscr: xóa màn hình keét quả

- readln: dừng chương trình

- var: khai báo biến

- write: in ra màn hình

P/s: Ko chăc

program tinh;

uses crt;

const g=9.8;

var u,u1,h:real;

begin

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

u1:=2*g*h;

u:=sqrt(u1);

writeln(' Ket qua la: ',u);

readln;

end.

Program HOC24;

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

i: integer;

begin

write('Nhap so ban trong to cua minh : '); readln(n);

for i:=1 to n do

begin

write('Nhap ho va ten cua ban thu ',i,' : '); readln(a[i]);

end;

writeln('Danh sach cac ban hoc sinh trong to la : ');

for i:=1 to n do writeln(a[i]);

readln

end.

var a,b,c,p,s: real;
begin
writeln('NHAP BA CANH TAM GIAC: ');
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
until (a+b>c) and (b+c>a) and (c+a>b);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi tam giac: ',2*p:5:2);
writeln('Dien tich tam giac: ',s:5:2);
writeln('Ban kinh duong tron ngoai tiep: ',a*b*c/(4*s):5:2);
writeln('Ban kinh duong tron noi tiep: ',s/p:5:2);
end.

#include<iostream>

using namespace std;

int main() {

int a,b;

cin >> a >> b;

cout << (a+b)*2;

return 0;

}

tụng nữa đi con ạ

uses crt;
var a:array[1..20]of integer;
i,j,tam,t,max,min:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac so le la: ');
for i:=1 to 20 do
if a[i] mod 2<>0 then write(a[i]:6);
writeln;
write('Cac so chan la: ');
for i:=1 to 20 do
if a[i] mod 2=0 then write(a[i]:6);
writeln;
t:=0;
for i:=1 to 20 do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to 20 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
write('Vi tri cua so nho nhat la: ');
for i:=1 to 20 do
if min=a[i] then write(i:4);
writeln;
write('Vi tri cua so lon nhat la: ');
for i:=1 to 20 do
if max=a[i] then write(i:4);
readln;
end.