Làm ơn giúp mk với!!! Đang cần gấp ạ Bài 1: viết chương trình nhập vào điểm 3 môn: Toán, văn, anh từ bàn phím. Tính điểm trung bình và in ra thông báo nếu điểm trung bình >=9 và<10 "giỏi" 7<=ĐTB và <=8 khá 5<=ĐTB <7 "TB" ĐTB<5 "ko đạt" Bài 2: viết chương trình nhập N từ bàn phím

pfmndqlwuz_1579516572

2 năm trước

Làm ơn giúp mk với!!! Đang cần gấp ạ Bài 1: viết chương trình nhập vào điểm 3 môn: Toán, văn, anh từ bàn phím. Tính điểm trung bình và in ra thông báo nếu điểm trung bình >=9 và<10 "giỏi" 7<=ĐTB và <=8 khá 5<=ĐTB <7 "TB" ĐTB<5 "ko đạt" Bài 2: viết chương trình nhập N từ bàn phím. Đếm từ 1 đến n có bao nhiêu số lẻ, in kết quả ra màn hình Bài 3: in N nhỏ nhất để 1/N<0.01

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

nynguyenn2307

uses crt;

var a,b,c,d:word;

begin

clrscr;

write('diem mon van: ') readln(a);

write('diem mon toan: ') readln(b);

write('diem mon anh: ') readln(c);

d:=(a+b+c)/3;

if (d>=9) and (d<=10) then write('gioi');

if (d>=9) and (d<=8) then write('kha');

if (d>=5) and (d<7) then write('TB');

if d<5 then write('ko dat');

readln

end.

Uses crt;

var n,i:word;

Begin

clrscr;

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

for i:=1 to n do

begin

if n mod 2=1 then D:=D+1;

end;

write('co ',d,' sl');

readln

end.

B3 Sai đề em chịu

Vote (0) Phản hồi (0) 2 năm trước

ngoctien300400

Bài 1:

program bai1;

uses crt;

var T,V,A,Tb:real;

begin clrscr;

write('Nhap diem ba mon Toan, Van, Anh '); readln(T,V,A);

Tb:=(T+V+A)/3;

writeln('Diem Tb ba mon do la: ',Tb);

if 9<=Tb and Tb<=10 then writeln('Gioi');

if 7<=Tb and Tb<=8 then writeln('Kha');

if 5<=Tb and Tb<7 then writeln('Trung binh');

if Tb<5 then writeln('Khong dat');

readln;

end.

Bài 2:

program bai2;

uses crt;

var i,N:integer;

begin clrscr;

writeln('Nhap so N'); readln(N);

writeln('Cac so le tu 1 den ',n,' la: ');

for i:=1 to N do

if i mod 2<>0 then write(i);

readln;

end.

Bài 3:

program bai3;

uses crt;

var i,N:integer;

begin clrscr;

i:=0; N:=1;

while 1/N < 0.01 do

N:=N+i; i:=i+1;

write('N nho nhat de 1/N<0.01 la: ',N);

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

1 -3-- .16 + 5/4 - 2 : 25% 2

1) hai điển cố sân lai, gốc tử trong đoạn trích kiều ở lầu ngưng bích là gì? nêu hiệu quả nghệ thuật của vc sử dụng những điển cố đó

Cho biết đặc điểm cấu tạo ngoài thích ghi với đời sống ếch tóm tắt

Giải thích câu tục ngữ đi một ngày đàng học một sàng khôn. Bài văn nghị luận

Làm hộ mình hai câu này Giải thích cách làm

Cho Δ ABC vuông tại A, đường cao AH. Từ trung điểm K của AC kẻ KD vuông góc vs BC tại D. CM: AB²=BD²-CD²

số thập phân 0.9 đc viết dưới dạng phân số là : viết kết quả luôn 20% của 120 là viết kết quả luôn 2 tấn 17kg = ......... kg đúng ghi Đ sai ghi S A 3/4 = 750cm khối ..... B 1/2 giờ = 30 phút ..... C 3/4dm khối .... D 2 ngày 4 giờ = 24 giờ ...... 4.8m khối ...... dm khối

Sắp xếp từ thành câu! Ai nhanh và đúng mik vote 5*+ctlhn ngay và luôn 1.A/can/different/become/many/extinct/because/species/of/things/. 2.It's/time/has/the/ever/first/eaten/I/have/pizza/.

Vẽ anime buồn nha ! Đẹp cho 5* + cảm mơn nè ! Tranh mới và chưa đăng lần nào ạ ! Tranh đẹp , không tô màu , vẽ giấy hay app đều đc ! Ko Spam , ko thief tranh , ... Cảm mơn ạ !!! Xin hết !!!!

Cho x+y=0 tính giá trị của biểu thức 3xy(x+y)+2x^3y+2x^2y^2+5

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến