ai mà theo dõi mik thì mik sẽ theo dõi lại nha
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
lệnh solve nằm ở Tookit Math chứ?
solve <phương trình> <tên biến>
VD: solve 3*x+1=0x
Dễ thôi:
program I_challenge_all;
uses crt;
begin
writeln('Ho va ten');
writeln('So dien thoai');
writeln('Email & Dia chi');
readln
end.
Please upvote for me!
program ....(tên bạn đặt cho chương trình);
uses crt;
begin
clrscr;
writeln (' ten của bạn ');
writeln (' sdt của bạn ');
writeln (' email của bạn');
writeln (' địa chỉ ');
readln
end.
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap so hoc sinh : '); readln(n);
for i:=1 to n do
begin
write('Nhap diem tin cua ban thu ',i,' : '); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i]>5 then d:=d+1;
write('Co ',d,' hoc sinh co tren 5 diem');
readln
end.
Ukm.Mk theo dỏi bn rùi