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.

8 tháng 9 2022

{ đơn giá: a, số lượng: b}

uses crt;

var a,b,s,thanhtoan:integer;

begin

write('nhap gia don hang:');

read(a);

write('nhap so luong hang:');

s:=0;

thanhtoan:=0;

s:=a*b;

if s>100 then thanhtoan:= s*(30/100)

   else thanhtoan:= s* (10/100);

write(' so tien can thanh toan la:',' ',thanhtoan);

readln;

end.

 

 

 

 

 

 

 

 

24 tháng 3 2022

giúp mình với, mình cần gấp

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

4 tháng 4 2023

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

24 tháng 11 2016

Thêm dấu ";" sau MAX:=a nhé

24 tháng 11 2016

Uses CRT;

Var a,b,c,d,MAX : integer;

Begin

clrscr;

Readln(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('So lon nhat la',MAX);

Readln

End.

( Chưa học nhưng mình đọc trước :v Sai thì mong được bổ sung )

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.

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.