viết chương trình nhập vào 3 số nguyên. Tính tổng của số thứ nhất và thứ hai, tính tích của số thứ ba. (trên Pascal)
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.
Những câu hỏi liên quan
4 tháng 1 2023
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b);
readln;
end.
ML
13 tháng 3 2021
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
13 tháng 3 2021
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
21 tháng 9 2021
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
if a>b then writeln(a+b:4:2)
else writeln(a*b:4:2);
readln;
end.
3 tháng 10 2021
uses crt;
var a,b:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
if(b>a)then writeln(a*b) else writeln(a+b);
readln;
end.
KV
16 tháng 5 2023
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.
7 tháng 11 2021
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
8 tháng 2 2022
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
KV
23 tháng 2 2023
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
KV
23 tháng 2 2023
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
21 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
double x,y,z;
int main()
{
cin>>x>>y>>z;
cout<<"Dien tich la:"<<fixed<<setprecision(2)<<(x+y)/2*z;
return 0;
}
H9
HT.Phong (9A5)
CTVHS
18 tháng 3 2023
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
25 tháng 12 2023
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
11 tháng 3 2022
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.