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 Writeln('5+20=','20+5'); in ra màn hình hai xâu ký tự '5+20' và '20+5' liền nhau: 5+20 = 20+5.
Còn lệnh Writeln('5+20=',20+5); in ra màn hình xâu ký tự '5+20' và tổng của 20+5 như sau: 5+20=25
Hai lệnh Writeln('100'); và Writeln(100); không tương đương với nhau vì một lệnh in ra màn hình xâu ký tự biểu diễn số 100 còn lệnh kia in ra màn hình số 100
program tinhtong;
uses crt;
var n,i,s:integer;
begin
clrscr;
write('nhap n=');
readln(n);
while (n>100) do
begin
write('nhap lai n<100:');
readln(n);
end;
s:=0;
for i:=1 to n do s:=s+i;
write('tong vua tinh la:',s:3);
readln;
end.
Người mới vô có gì sai sót mong bỏ qua :))
1
Uses crt;
Var t,n,i:longint;
Begin
clrscr;
write('nhap vào số n: ');readln(n);
while n<1 do readln(n);
for i:=1 to n do t:=t*i;
write('tich tren co ket qua la: 't);
readln;
End.
2(bài này sử dụng mảng nhé)
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
while N<1 do readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('so lon nhat trong day N:', Max);
Readln;
End.
3
Uses crt;
Var a:array[1..20]of integer;i,N,max,min:integer;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day n=’);readln(n); For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]=’);readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; For i:=1 to N do
Begin
If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
End;
Writeln('Day so vua nhap la: '); Writeln('————————-'); For i:=1 to N do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min);
Readln;
End.
kiểm tra xem đúng ko nhé!
program cach1;
var i:integer
begin
for i:=1 to 100 do write(i*2);
readln
end.
program cach2;
var i:integer;
begin
for i:=1 to 100 do if i mod 2=0 then write(i);
readln
end.
program ct1;
uses crt;
var i:integer;
begin
write (' Cac so chan trong day so la: ');
for i:=1 to 100 do if i mod 2=0 then write (i:3);
readln;
end.
- Thử xem nhé!
uses crt;
var i:integer;
t:real;
begin
clrscr;
i:=1;
t:=0;
while i<=100 do
begin
t:=t+1/i;
inc(i);
end;
writeln(t:4:2);
readln;
end.
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu 1 den 100 la: ',t);
readln;
end.
lệnh M[5]:=100 tương đương lệnh nào sau đây?
a. M[3]+M[2]:=100
b. M[3]:=100
c M[3+2]:=100
d M[2]:=100
Chọn C