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.
Uses crt;
Var St,St1,x:string;
i,j,k,l:longint;
Begin
readln(St);
For i:=1 to length(St) do
If (St[i] in ['a'..'z']) then If not (St[i-1] in ['0'..'9']) then Insert('1',St,i);
For i:=1 to length(St) do
Begin
If St[i] in ['0'..'9'] then
For j:=i+1 to length(St) do
If St[j] in ['a'..'z'] then break;
x:=copy(St,i,j-i);
Val(x,k);
For l:=1 to k do
St1:=St1+St[j];
end;
Write(St1);
readln;
end.
Bước 1: Nhập n là số cần in ra bảng nhân của số đó
Bước 2: i←1;
Bước 3: Nếu i>n thì kết thúc thuật toán
Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)
Bước 5: i←i+1, quay lại bước 3
Bước 1: Nhập n
Bước 2: i←1;
Bước 3: Nếu i>n thì kết thúc thuật toán
Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)
Bước 5: i←i+1, quay lại bước 3
theo mình thì câu 1 của bạn đúng còn câu 2 thì có dấu ngoặc đơn ở 20*3+20 nên nó sẽ in ra thành 20*3+20=20*3+20.
Program GPTBN ;
var a,b: Real ;
Begin
Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)
else if b=0 then writeln (' Phuong trinh co vo so nghiem ')
else writeln (' phuong trinh vo nghiem ');
Readln;
End.
program gptbn;
uses crt;
var a,b:real;
begin
write('Nhap he so a,b cua phuong trinh: ');readln(a,b);
if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)
else if b = 0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem');
readln
end.
Hãy cho bt đâu là lệnh lặp for...do để in chữ O
A for i:=1.5 to 10.5 do writeln('o');
B for i:=1 to 10 do writeln('O');
C for i:=100 to 1 do writeln('o')
D for i:=1 to 10 do; writeln('o')
Cho hai xâu kí tự “Lớp” và “8A”. Có thể định nghĩa nhiều “phép toán” trên tập hợp các dữ liệu kiểu xâu. Chẳng hạn phép ghép: Lớp + 8A = Lớp8A
hayyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy