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.
Var a:array[1..1000] of integer;
i,x:integer;
s:longint;
Begin
Write('x = ');readln(x);
For i:=1 to x do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i];
End;
writeln('Tong cac so chia het cho 2 la ',s);
write('Cac so vua nhap la ');
for i:=1 to x do write(a[i]:5);
Readln
End.
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
Cách khác(Dùng bằng C++)
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b<<endl;
cout<<"Tich la:"<<fixed<<setprecision(2)<<a*b;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int main()
{
cout<<19/5<<endl;
cout<<19%5;
return 0;
}
Program tinhtoan;
Var a,b,c,d : integer;
Begin
Write(‘Nhap hai so a,b :’);
Readln (a,b);
c:=a div b;
d:=a mod b;
Writeln(‘ Phan nguyen cua a va b la :’,c);
Writeln(‘ Phan du cua a va b la :’,d);
Readln;
End.
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!!!!!!!!!!!!