chạy chương trình với dữ liệu a=7 và a=7,5
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
17 tháng 3 2021
var s:string;
f1:text;
a:byte;
begin
assign(f1,'c:\ghixau1.txt'); rewrite(f1);
readln(s);
writeln(f1,s);
close(f1);
End.
8 tháng 3 2022
uses crt;
const fi='dulieu.dat';
var f1:text;
a,b,p,s:array[1..100]of real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(a[n],b[n]);
end;
for i:=1 to n do
begin
p[i]:=(a[i]+b[i])/2;
s[i]:=a[i]*b[i];
end;
for i:=1 to n do
writeln(p[i]:4:2,' ',s[i]:4:2);
close(f1);
readln;
end.
20 tháng 10 2021
Xử lí những dữ liệu là điểm ba môn Toán,Văn, Anh
Những kiểu dữ liệu đó phải có kiểu số thực
11 tháng 12 2020
a) var a:real;
b:string;
a:=20.5;
readln(b);
b) var x:string;
y:integer;
x:='Ha Noi';
readln(y);
did là chia lấy phần nguyên
=> 45 did 6 = 7 (dư 3, bỏ qua phần dư)
7+1= 8
=> 45 did 6 +1 = 8
Bạn phải nói đề mới có người giúp bạn chứ