">
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.

20 tháng 1 2022

hahaah

 

#include <bits/stdc++.h>

using namespace std;

int i;

int main()

{

for (i=1; i<=10; i++) cout<<"Hello"<<endl;

return 0;

}

31 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int main()

{

double dai=25.67; 

double rong=23.45;

cout<<fixed<<setprecision(2)<<dai<<endl;

cout<<fixed<<setprecision(2)<<rong;

return 0;

}

14 tháng 4 2017

program vietchuongtrinh;

uses crt;

begin

clrscr;

writeln('Hello');

writeln('"Toi la Turbo Pascal"');

readln;

end.

14 tháng 4 2017

phải khai báo kiểu dữ liệu nữa kêr ._.

1:

uses crt;

var t,x,i,n:integer;

begin

clrscr;

t:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

t:=t+x;

end;

write(t);

readln;

end.

2: 

uses crt;

var dem,x,i,n:integer;

begin

clrscr;

dem:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

write(dem);

readln;

end.

4 tháng 4 2023

3

program Cacsole;
uses crt;
var M, N, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
for i := M to N do

if  i mod 2 = 1 then
write (i,' ');
readln;
end.

25 tháng 4 2021

uses crt;

var a:array[1..10]of integer;

i,n,tb:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i]>=8 then write(a[i]:4);

tb:=0;

for i:=1 to 10 do 

  tb:=tb+a[i];

writeln;

writeln('Diem trung binh cua 10 ban la: ',tb:4:2);

readln;

end.
 

#include <bits/stdc++.h>

using namespace std;

long long m,n;

int main()

{

cin>>m>>n;

cout<<m*n;

return 0;

}

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

20 tháng 3 2022

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

20 tháng 3 2022

tham khảo

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.