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.
Program soquaoi;
Uses Crt;
Var a,b: Integer;
TKL, KL: Real;
Begin Clrscr;
write('so oi =' ) Readln ( a);
write ( ' khoi luong='); Readln(KL);
TKL:= a*KL;
b:=a mod 8;
writeln('tong khoi luong=',TKL);
write (' so du cho 8=', b);
Readln;
End.
Theo phần mềm Free Pascal IDE thì sẽ viết như sau:
program khoiluong;
uses crt;
var a,b,tongkhoiluong,sodu:integer;
begin
clrscr;
writeln('Hay nhap so qua oi);readln(a);
writeln('Hay khoi luong oi');readln(b);
tongkhoiluong:=a*b;
sodu:=a mod 8;
writeln('tong khoi luong ',tongkhoiluong);
writeln('So oi du sau khi chia cho 8 la',sodu);
readln;
end.
CHÚC BẠN HỌC TỐT!!!!!!!!!!!!
- Tổng số ca: Tại ô E4 sử dụng công thức: =C4+D4. Sau đó sao chép công thức đến khối ô tính E5:E9 để tính cho những người còn lại.
- Tiền công: Tại ô F4 sử dụng công thức: =E4*F$2. Sau đó sao chép công thức đến khối ô tính F5:F9 để tính cho những người còn lại.
7:
a)
uses crt;
var a,h:integer;
s:real;
begin
clrscr;
write('nhap do dai canh a:'); readln(a);
write('nhap do cao :'); readln(h);
s:=(a+h)/2;
writeln('dien tich tam giac la: ',s:4:2);
readln;
end.
b)
uses crt;
var a,b,c,d:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
c:=a div b;
d:=a mod b;
writeln(a,' chia ',b,' co thuong la: ',c);
writeln(a,' chia ',b,' co so du la: ',d);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<min(a,min(b,c));
return 0;
}
uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=1;
while s<=10000 do
begin
s:=s+n;
inc(n);
end;
writeln(s);
writeln('So n nho nhat sao cho tong S>10000 la: ',n);
readln;
end.