K
Khách

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.

8 tháng 5 2018

Ukm.Mk theo dỏi bn rùihihihaha

11 tháng 5 2018

lệnh solve nằm ở Tookit Math chứ?

solve <phương trình> <tên biến>

VD: solve 3*x+1=0x

6 tháng 5 2018

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!

4 tháng 5 2018

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.

4 tháng 5 2018

Cảm ơn đã giúp <3

2 tháng 10 2020

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.

7 tháng 5 2018

program mang;

uses crt;

var i,n:longint;

A:array[1..1000] of integer;

begin

clrscr;

write ('So cac phan tu cua mang la '); readln (n);

For i:=1 to n do

begin

write ('Hay nhap phan tu thu',i);readln(A[i]);

end;

readln;

end.

4 tháng 5 2019

Huhu đắng vãikhocroi