Bài 8: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình

Khoảng cách giữa 2 đoạn văn bản liền nhau được xác định bởi các tham số spacing. Trong đó:

Before: là khoảng cách từ dòng đầu tiên của đoạn văn đến dòng cuối cùng của đoạn phía trước nó.

After: là khoảng cách từ dòng cuối cùng của đoạn văn đến dòng đầu tiên của đoạn phía dưới nó.

mình hưỡng dẫn thôi còn đâu bạn tự làm nha

a) readln(a,b,c);

s:=a+b+c;

write(s);

b) min:=a;

if min > b then min:=b;

if min > c then min:= c;

write(min);

c) dem:=0;

if a < 0 then inc(dem);

if b< 0 then inc(dem);

if c< 0 then inc(dem);

write(dem);

program bai1;

var a:array[1..100] of longint;

s,i,n:longint;

begin

repeat

write('N= ');readln(n);

until n>0;

for i:=1 to n do

begin

write('A[',i,']= ');readln(a[i]);

end;

write('So nguyen to trong day la ');

for i:=1 to n do

begin

if (a[i] mod i=0) then s:=s+1;

if s=2 then write(a[i],' ');

end;

readln

end.

program bai_tap;
type mang = array[1..1000] of integer;
var a:mang;
i,j,n:integer;kt:boolean;
begin
writeln('nhap n:');
readln(n);
i:=1;
while i <= n do
begin
write('nhap so thu ',i,': ');
readln(a[i]);
if a[i] > 1 then
begin
kt:=true;
for j:= 2 to trunc(sqrt(a[i])) do
if a[i] mod j = 0 then
begin
kt:=false;
break;
end;
if kt = true then writeln(a[i]);
end;
inc(i);
end;
readln
end.

program bai1;

var a:array[1..100] of longint;

n,k,s,i:longint;

tbc:real;

begin

repeat

write('N= ');readln(n);

until n>0;

for i:=1 to n do

begin

write('A[,i,']= ');readln(a[i]);

end;

k:=0;s:=0;

for i:=1 to n do

if (a[i] mod 5=0) then

begin

s:=s+a[i];

k:=k+1;

end;

tbc:=s/k;

writeln('Trung binh cong la ',tbc)l

readln

end.

uses crt;

var a,b,c,d,tl,tc:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

write('Nhap d='); readln(d);

tc:=0;

tl:=0;

if a mod 2=0 then tc:=tc+a

else tl:=tl+a;

if b mod 2=0 then tc:=tc+b

else tl:=tl+b;

if c mod 2=0 then tc:=tc+c

else tl:=tl+c;

if d mod 2=0 then tc:=tc+d

else tl:=tl+d;

writeln('Tong cac so chan la: ',tc);

writeln('Tong cac so le la: ',tl);

readln;

end.

Nhập n xong rồi làm gì nữa bạn?

Câu 5: D

Bài 1: 

uses crt;

var n,t,i,d,x:integer;

st:string;

begin

clrscr;

readln(n);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x);

t:=t+x;

end;

writeln(t);

readln;

end.

1: 

#include <bits/stdc++.h>

using namespace std;

long long a;

{

cin>>a;

cout<<"Chu vi la:"<<a*4<<endl;

cout<<"Dien tich la:"<<a*a;

return 0;

}