Stem viết chương trình tính tổng tiền bà sane phẩm bấy kì Viết 1 đoạn chương trình để - khai báo biến -thao tác nhập -câu lệnh gán để tính tán -thao tác tính tổng tiền Giúp bài tôi với cảm ơn nhìu
Viết đoạn văn về: Khai báo biến Thao tác nhập Câu lệnh ráng để tính toán Thao tác xuất đồng tiền
Nhập 2 số nguyên a, b từ bàn phím. Viết chương trình tính tổng 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
A. Var a , b, tong : real;
B. Var a, b, tong : integer;
C. Var a, b, tong : char;
D. Var a, b, tong : string;
Nhập 2 số thực a, b từ bàn phím. Viết chương trình tính tổng 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
A. Var a, b, tong : char;
B. Var a, b, tong : integer;
C. Var a , b, tong : real;
D. Var a, b, tong : string;
nhập 2 số nguyên a b từ bàn phím viết chương trình tính tổng S của 2 số a b để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào
tùy bạn thôi có nhiều cách khai báo mà
Nhập 2 số nguyên a, b từ bàn phím. Viết chương trình tính tích 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
A. Var a, b, tich : integer;
B. Var a , b, tich : real;
C. Var a, b, tich : char;
D. Var a, b, tich : string;
1 Viết chương trình nhập mạng một chiều n tính và in ra màn hình tổng số lẻ 2 viết chương trình nhập vào một xâu từ văn phím viết chương trình chuẩn hóa xâu bằng cách xóa các ký tự trống ở đâu xâu và cuối xâu 3 Viết các thao tác và lần tương ứng cần thực hiện để đọc một giá trị từ tệp ‘ DL.TXT ‘ Ghi giá trị vừa đọc vào tệp ‘KQ.TXT’ Giúp mình với ạ
1:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
3:
const fi='dl.txt'
fo='kq.txt'
var f1,f2:text;
a:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a);
writeln(f2,a);
close(f1);
close(f2);
end.
2:
uses crt;
var st:string;
d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[d]=#32 do
begin
delete(st,d,1);
d:=length(st);
end;
writeln(st);
readln;
end.
Viết một chương trình pascal có sử dụng các câu lệnh : khai báo biến , nhập giá trị của biến , in lên màn hình giá trị của biến , gán giá trị cho biến , câu lệnh điều kiện dạng đủ
uses crt;
var n,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('n=',n);
x:=n;
if x mod 2=0 then writeln(x,' la so chan')
else writeln(x,' la so le');
readln;
end.
Nhập 2 số nguyên a, b từ bàn phím. Viết chương trình tính tổng 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
(0.5 Points)
A. Var a , b, tong : real;
B. Var a, b, tong : integer;
C. Var a, b, tong : char;
D. Var a, b, tong : string;
Câu 2: Viết câu lệnh khai báo biến x có kiểu dữ liệu số thực và hằng pk có giá trị 20.
Câu 3: Viết chương trình Pascal tính tổng S của hai số nguyên a và b được nhập từ bàn phím
Kíu!! Mai thi mất r!!!
Câu 3:
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.