a) Em hãy cùng các bạn trong nhóm thảo luận và làm một bản mô tả theo mẫu ở bảng 2 vào vở (không được viết trực tiếp vào sách).

b) Lập bảng phân công trong nhóm và kế hoạch thực hiện.

c) Em và các bạn trong nhóm hãy cùng tạo chương trình theo bản mô tả.

uses crt;

var n,t1:integer;

s:real;

begin

clrscr;

t1:=0;

s:=1;

repeat

readln\(\left(n\right)\);

if n mod 2=0 then t1:=t1+n

else s:=s*n;

until n=0;

writeln\(\left(t1\right)\);

writeln\(\left(s:4:2\right)\);

readln;

end.

Mình cần gấp!! Cảm ơn ạ

Câu 1: 

a) (x+y)/(x-y)

b) sqr(b)-4*a*c;

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap chieu dai:'); readln(a);

write('Nhap chieu rong:'); readln(b);

writeln('Chu vi la: ',(a+b)*2);

writeln('Dien tich la: ',a*b);

readln;

end.

Câu 3: 

Biến là công cụ trong lập trình. Trong lập trình, biến là tên của vùng nhớ được dùng để lưu trữ dữ liệu và dữ liệu được biến lưu trữ có thể thay đổi trong khi thực hiện chương trình. 

Cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;

Ví dụ: var a:integer;

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

uses crt;

var x,t,i:integer;

begin

clrscr;

t:=0;

repeat

readln(x);

t:=t+x;

until x=0;

write(t);

readln;

end.

uses crt;

const fi='dulieu.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

if (st[i] in ['A'..Z']) or (st[i] in ['0'..'9']) or (st[i]=#32) then write(f1,st[i]);

close(f1);

end.

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x;

cout<<x*x*x+y*y*y-2*x;

return 0;

}