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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
14 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long i;
int main()
{
for (i=20; i>=15; i--) cout<<i<<" ";
return 0;
}
21 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
double a,b,tb;
int main()
{
cin>>a>>b;
tb=(a+b)/2;
cout<<fixed<<setprecsion(1)<<tb;
return 0;
}
3 tháng 1 2022
Câu 3:
a: if n mod 3=0 then writeln('n la mot so nguyen chia het cho 3');
b: if t>=5 then writeln('chuc mung! ban da qua mon')
else writeln('rat tiec! ban phai hoc lai');
Câu 4:
Cái này bạn Thành nói đúng. Bởi vì chúng ta có thể thay phần else ở đằng sau câu lệnh điều kiện dạng đủ thành một câu lệnh if có điều kiện ngược lại câu lệnh if ở trên
27 tháng 4 2021
b)
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then t1:=t1+a[i];
if a[i]<0 then t2:=t2+a[i];
end;
writeln('Tong cac so duong la: ',t1);
writeln('Tong cac so am la: ',t2);
readln;
end.
27 tháng 4 2021
a)
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
21 tháng 2 2022
uses crt;
var a:array[1..15]of integer;
n,i,k:integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then
begin
kt:=true;
break;
end;
for i:=1 to n do write(a[i]:4);
writeln;
if (kt=true) then writeln('Trong mang co ton tai phan tu co gia tri la K')
else writeln('Khong ton tai phan tu co gia tri la k');
readln;
end.
1 tháng 11 2021
program baitap;
uses crt;
var x,y: integer;
begin
clrscr;
write('so nguyen x la');
readln(x);
write('so nguyen y la');
readln(y);
writeln(' ho ten va lop');
write('hieu hai so x va y la ', x-y);
readln;
end.
HD
1
uses crt;
var a:array[1..1000]of integer;
n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=n downto 1 do write(a[i]:4);
readln;
end.