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 st1,st2:string;
begin
clrscr;
readln(st1);
readln(st2);
writeln('Ten minh ',st1);
writeln('Lop ',st2);
readln;
end.
đơn giản mà
bài 1:
uses crt;
var i:integer;
st,st1:string;
begin
clrscr;
for i:=1 to 10 do
begin
write('nhap ten va lop thu ',i,':'); readln(st,st1);
writeln(st:4,' ',st1:4);
end;
readln;
end.
bài 2:
uses crt;
var n,i,t:integer;
s:longint;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+i;
s:=s*i;
end;
writeln('tong cua day so tu 1 toi ',n,' la: ',t);
writeln('giai thua cua ',n,' la: ',s);
readln;
end.
bài 3:
uses crt;
var x,y,i,dem,t:integer;
begin
clrscr;
repeat
write('x='); readln(x);
write('y='); readln(y);
if x>=y then writeln('ban da nhap sai, yeu cau ban nhap lai');
until x<y;
dem:=0;
t:=0;
for i:=x to y do
if i mod 2=0 then
begin
write(i:4);
dem:=dem+1;
t:=t+i;
end;
writeln;
writeln('so so chan trong day so tu ',x,' toi ',y,' la: ',dem);
writeln('tong cac so chan trong day so tu ',x,' toi ',y,' la: ',t);
readln;
end.
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
uses crt;
var i:integer;
a:array[1..20]of string;
begin
clrscr;
for i:=1 to 20 do readln(a[i]);
for i:=1 to 20 do
writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);
readln;
end.
Program Hoc24;
var i: byte;
begin
for i:=1 to 20 do
writeln('Chao ban thu ',i);
readln
end.
#include <bits/stdc++.h>
using namespace std;.
int n,i;
string a[1000];;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<endl;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%9==0) cout<<"n la boi cua 9";
else cout<<"n khong la boi cua 9";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tb;
int main()
{
cin>>a>>b;
tb=(a+b)/3;
cout<<fixed<<setprecision(1)<<tb<<endl;
if ((tb>=5) and (a>=3) and (b>=3)) cout<<"Dau";
else cout<<"Rot";
return 0;
}
Câu lệnh trên web....
Ê ĐANG THI Ó