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
KV
14 tháng 3 2023
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
30 tháng 8 2021
a: if (a=b) or (b=c) or (a=c) then writeln('Tam giac can');
b: if (a=c) and (b=c) then writeln('Tam giac deu');
c: if (x mod 2<>0) and (x mod 3=0) then writeln('x la so nguyen le va chia het cho 3');
TT
2
11 tháng 10 2021
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln('Tong a+b la ',a+b);
writeln('Hieu a-b la ',a-b);
writeln('Tich cua a*b la ',a*b);
writeln('Thuong cua a/b la ',a/b:4:2);
readln;
end.
12 tháng 10 2021
Câu 2: (C++)
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << "Tong a+b la: " << a+b << "\nHieu a-b la: " << a-b << "\nTich a*b la: " << a*b << "\nThuong a/b la: " << (double)a/b << endl;
return 0;
}
Chúc bn học tốt!
QT
0
22 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d,ln;
int main()
{
cin>>a>>b>>c>>d;
ln=a;
ln=max(ln,b);
ln=max(ln,c);
ln=max(ln,d);
cout<<ln;
return 0;
}
22 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
int main()
{
int a, b, c, d, maxabcd;
cin >> a >> b >> c >> d;
maxabcd=a;
if(maxabcd<b) maxabcd=b;
if(maxabcd<c) maxabcd=c;
if(maxabcd<d) maxabcd=d;
cout << "Max=" << maxabcd << endl;
return 0;
}
Chúc bn học tốt!
25 tháng 2 2021
uses crt;
var a:array[1..10]of integer;
i,n,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
writeln('Day so vua nhap la: ');
for i:=1 to 10 do
write(a[i]:4);
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln;
writeln('So luong so chan la: ',dem);
readln;
end.
uses crt;
const fi='dlra.txt';
var a:array[1..100]of integer;
i,n,h:integer;
f1:text;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
assign(f1,fi); rewrite(f1);
h:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(f1,a[i]:4);
h:=h+a[i];
end;
writeln(f1);
writeln(f1,h);
close(f1);
readln;
end.