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.

#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;

}

28 tháng 3 2022

Chịu thôi, sorry :))

1:

#include <bits/stdc++h>

using namespace std;

string a,b;

int main()

{

getline(cin,a);

getline(cin,b);

cout<<a<<" "<<b;

return 0;

}

8 tháng 3 2023

Nguyễn Thanh Thảo

Họ: Nguyễn

Tên đệm: Thanh

Tên: Thảo

ý muốn là lm bằng pascal nhóe :))

 

1 tháng 11 2021

C++ hay Pascal ạ

1 tháng 11 2021

pascal ạ

28 tháng 4 2022

uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!

28 tháng 4 2022

i:byte nghĩa là sao bạn

 

10 tháng 2 2022

hello

10 tháng 2 2022

câu trả lời thật hữu ích. Cảm ơn bạn nhaa

Bài 3: 

uses crt;

const fi='teptong.txt';

var a,b:integer;

f1:text;

begin

clrscr;

assign(f1,fi); rewrite(f1);

readln(a,b);

writeln(a+b);

writeln(f1,a+b);

close(f1);

readln;

end.

18 tháng 2 2021

Program HOC24;

var i.n: integer;

a: array[1..250] of integer;

begin

for i:=1 to n do

begin

write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do write(a[i],' ');

readln

end.

18 tháng 2 2021

uses crt;

var i,n:integer;     A: Array[1..50] of integer;begin        clrscr;        readln(n);readln(k);        for i:=1 to n do        begin                write('A[',i,'] = ');                readln(A[i]);        end;        for i:=1 to A[i] do        if (A[i] > k) then write(A[i]);        readlnend.