TB
3
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
VH
1
23 tháng 12 2022
Chương trình:
program (đặt tên tùy theo đề bài)
uses Crt;
begin
clrscr;
writeln('nhap a');
readln(a);
writeln('nhap b');
readln(b);
writeln('nhap c');
readln(c);
writeln('tong a,b,c=',a+b+c);
End.
LT
24 tháng 12 2022
Nếu bạn muốn số nó hiển thị số mà bạn nhập từ bàn phím khi chạy chương trình 0 có hiện a,b,c, thì xài là
writeln('Tong cua' ,a, ' vs ' ,b, ' vs ' ,c, ' là ',a+b+c);
18 tháng 12 2021
1:
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
cout<<a*a;
return 0;
}
21 tháng 10 2021
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<a*b*c;
return 0;
}
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d;
int main()
{
cin>>a>>b>>c>>d;
cout<<a+b+c+d;
return 0;
}
5 tháng 10 2021
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
5 tháng 10 2021
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d;
int main()
{
cin>>a>>b>>c>>d;
cout<<a+b+c+d;
return 0;
}
20 tháng 2 2023
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
H9
HT.Phong (9A5)
CTVHS
24 tháng 4 2023
Uses crt;
var i,n,k,u,f,y: longint;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]);
for i:=1 to n do if(a[i]<0) then k:=k+a[i];
for i:=1 to n do if(a[i]>0) then u:=u+a[i];
for i:=1 to n do if(a[i] mod 2<>0) then f:=f+a[i];
for i:=1 to n do if(a[i] mod 2=0) then y:=y+a[i];
writeln('Tong cac so am la: ',k);
writeln('Tong cac so khong am: ',u);
writeln('Tong cac so le la: ',f);
writeln('Tong cac so chan la: ',y);
readln;
end.
9 tháng 4 2022
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
uses crt;
var a,b,c,d:integer;
begin
clrscr;
readln(a,b,c,d);
writeln(a+b+c+d);
writeln(a*b*c*d);
readln;
end.
thank you!