Program hotrotinhoc;

var hoa,bo,bl : integer;

begin

write('Nhap so bong hoa :',hoa);

bo:=hoa div 12;

bl:=hoa mod 12;

writeln('Co ',bo,' bo hoa');

write('Co ',bl,' bong hoa le');

readln

end.

hoang skibidi

?

ừ

k co trinhf

ok

um nhà mít trồng anh thái

Google Sheet (hay Google Trang tính) là một ứng dụng bảng tính trực tuyến, miễn phí của Google, cho phép người dùng tạo, chỉnh sửa, phân tích dữ liệu và cộng tác theo thời gian thực với người khác. Nó tương tự như Microsoft Excel nhưng có nhiều ưu điểm như tự động lưu trữ trên đám mây (Google Drive), có thể truy cập trên mọi thiết bị và cho phép làm việc nhóm hiệu quả.

Program HOC24;

const fi='Data.txt';

fo='Result.txt';

var f: text;

a,b: integer;

dt,cv: longint;

dc: real;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a);

readln(f,b);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

dt:=a*b;

cv:=(a+b)*2;

dc:=sqrt((a*a)+(b*b));

writeln(f,'Chu vi hinh chu nhat la : ',cv);

writeln(f,'Dien tich cua hinh chu nhat la : ',dt);

write(f,'Chieu dai cua duong cheo la : ',dc:1:2);

close(f);

end;

begin

ip;

out;

end.

Lời giải:

program hotrotinhoc;

var a,b : integer;

s: longint;

t: real;

begin

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

write('B='); readln(b);

s:=a;

s:=s+b;

writeln(s);

s:=0;

s:=a;

s:=s-b;

writeln(s);

s:=0;

s:=a;

s:=s*b;

writeln(s);

t:=a;

t:=t/b;

write(t:1:2);

readln

end.

Bạn ơi kb vs mình đi để hôm nào mình hỏi tiếp :)))