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.
#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;
}
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
writeln(i,'. XIN CHAO');
readln;
end.
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
uses crt;
Var a,b: Real;
begin
Clrscr ;
Write ('Nhap a: '); readln (a);
Write ('Nhap b: '); readln (b);
If a < b then write ('Sap xep theo thu tu tang dan: ',a,' ',b);
If a > b then write ('Sap xep theo thu tu tang dan: ',b,' ',a);
if a = b then write ('Khong the thuc hien yeu cau!');
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then writeln(a,' ',b);
if a>b then writeln(b,' ',a);
if a=b then writeln('vui long nhap hai so khac nhau');
readln;
end.
- Biến đếm, giá trị đầu, giá trị cuối là kiểu số nguyên
- Giá trị cuối lớn hơn hoặc bằng giá trị đầu
Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
Program là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
writeln là từ khóa;
Uses CRT;
Var TB : real;
BEGIN
clrscr;
repeat
begin
write('Moi ban nhap diem trung binh: ');
Readln(TB);
end;
until (TB>0) and (TB<10);
If (TB >= 8) then write('hoc luc gioi') else
If (TB>=6.5) then write('hoc luc kha') else
If (TB>5) then write('hoc luc trung binh') else
If (TB>3.5) then write('hoc luc yeu') else
write('hoc luc kem');
Readln;
END.
begin
write('xin chao cac ban');
write('toi la free pascal');
readln;
end.
uses crt;
var ten:string;
begin
clrscr;
write('ban ten gi:'); readln(ten);
writeln('xin chao ban ',ten,' den voi Pascal');
readln;
end.
giúp em với ạ
\