Question

Câu 1: Hãy viết thuật toán của bài toán: Câu 2: Hãy viết thuật toán của bài toán: "Tinh tong cua 100 so tu nhien dau tien" Câu 3: bẫy viết cú pháp của câu lệnh điều kiện dạng thiết và câu lệnh điều kiện dạng đầy đủ. Trong mỗi trường hợp em hãy cho ví dụ cụ thể Câu 4: Em hãy viết chương trình thẻo các bứớc sau: a, Nhập vào hai số nguyên: m,n b, Sử dụng câu lệnh IF,then lồng nhau để thông báo ra màn hình kết quả các trường hợp sau: -Cả hai số là số chẵn -Cả hai số là số lẻ -Một số là số chẵn,một số là số lẻ Câu 5: Hãy viết chương trình theo các bước sau: a, Nhập vào ba cạnh của một tam giác b, Sử dụng IF,then lồng nhau để thông báo ra màn hình kết quả trong các trường hợp sau: -Tam giác đều -Tam giác cân -Ko phải là tam giác đều hay tam giác cân

Answer 1

Câu 2: 

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=100 thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

Câu 3:

Dạng thiếu: if <điều kiện> then <câu lệnh>;

Dạng đủ: if <điều kiện> then <câu lệnh> 

else <câu lệnh>;

Câu 4: 

uses crt;

var m,n:integer;

begin

clrscr;

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

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

if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')

else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');

readln;

end.

Câu 5: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')

else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')

else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')

else if (a=b) and (b=c) then writeln('Tam giac deu')

else writeln('Day khong phai la tam giac deu hay tam giac can');

readln;

end.