1/ Viết chương trình tính diện tích chu vi hcn với các cạnh là các số nguyên dương nhập từ bàn phím. 2/ viết chương trình nhập 1 số nguyên dương có 3 chữ số . tính và đưa ra màn hình kết quả tổng 3 chữ số đó. ví dụ: nhập 246 đưa ra 2+ 4+6 =12 giúp mình vs ạ, mình sẽ vote 5 sao

Huynhdanggiavinh

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 23 xem

1 trả lời

Thích Trả lời

phanthuytien761

Bài 1:

program oken;
uses crt;
var a,b: integer;
begin
clrscr;
write('Nhao chieu dai: '); readln(a);
write('Nhap chieu rong: '); readln(b);
writeln('Dien tich hinh chu nhat: ',a*b);
writeln('Chu vi hinh chu nhat: ',(a+b)*2);
readln;
end.

Bài 2

program oken;
uses crt;
var n,s: integer;
begin
clrscr;
write('Nhap so co 3 chu so: '); readln(n);
while n<>0 do
begin
s:=s+n mod 10;
n:= n div 10;
end;
writeln('Ket qua: ',s);
readln;
end.

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

hoanphans

Câu 1:

uses crt;
var a,b:longint;
begin
clrscr;
repeat
write('Nhap chieu dai,rong (a>0,b>0,a>b): '); read(a,b);
if (a<=0) or (b<=0) or (b>=a) then writeln('NHAP LAI!');
until (a>0) and (b>0) and (a>b);
writeln('Dien tich HCN: ',a*b);
writeln('Chu vi HCN: ',2*(a+b));
readln
end.

Câu 2:

uses crt;
var n,t:longint;s:string;
begin
clrscr;
repeat
write('Nhap n co 3 chu so: '); readln(s);
if length(s)<>3 then writeln('NHAP LAI!');
until length(s)=3;
val(s,n);
while n<>0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
writeln('Tong: ',t);
readln
end.

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

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

Viêt một đoạn văn nói cảm nhận của em về nhân vật trong Lão Hạc Đoạn trích: Phần chữ to trong sách Sử dụng từ tượng hình tượng thanh,chỉ ra sự liên kết trong đoạn văn

Giúp em với ạ . Giúp nhanh giùm em với ạ.

giải phương trình sau: sin7x.sinx=sin5x.sin3x

Giải nhanh mà đúng Mik vote 5*

Giúp mk giải bài 1,2,3 với. Cảm ơn các bạn.

vẽ sơ đồ về nguyên tử và khái niệm của nguyên tử

Dịch nghĩa : Do you like banana ? Can you help me ? Điền vào chỗ trống : I ...... a student I want ....... soccer

tính nhanh giá trị bt a)$3^{4}$ * $5^{4}$ - ($15^{2}$ + $1$)($15^{2}$ - $1$) b)$x^{4}$ - $12x^{3}$ + $12^{2}$ - $12x$ + $1$ tại $x$ = $11$

vẽ sơ đồ về nguyên tử và khái niệm cấu tạo của nguyên tử

khoảng cách trên thực địa là bao nhiêu?

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