Viết chương trình nhập \(8\ge n\ge2\) từ bàn phím và in ra thứ trong tuần tương ứng với giá trị của n
Giúp mình với nha!!!
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.
KV
28 tháng 11 2020
Cái dòng 0x + 5 = 0 ở đâu ra vậy?
Muốn người ta giúp thì mình phải ghi cho rõ ràng. Tự dưng xuất hiện dòng 0x + 5 = 0
LD
1
28 tháng 11 2020
const fi='cau3.inp';
fo='cau3.out';
var f1,f2:text;
a:array[1..100]of string;
n,i,j,tam,max,min,t:integer;
b:array[1..100]of integer;
c:array[1..3]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
readln(f1,a[i]);
for i:=1 to n do
b[i]:=length(a[i]);
max:=b[1];
for i:=1 to n do
if max<b[i] then max:=b[i];
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
c[1]:=min;
c[2]:=max;
t:=0;
for i:=1 to n do
t:=t+b[i];
c[3]:=t;
for i:=1 to 3 do
write(f2,c[i]:4);
close(f1);
close(f2);
end.
27 tháng 11 2020
program doi_gia_tri;
uses crt;
var
x,y,tam:longint;
begin
writeln('Nhap x = '); readln(x);
writeln('Nhap y = '); readln(y);
if (x<y) then
begin
tam:=x;
x:=y;
y:=tam;
end;
write(x,' ',y); readln;
end.
DT
1
TG
26 tháng 11 2020
Program Munn;
Uses crt;
Var h,m,n,C:real;
Begin
Write ('Nhap canh 1');
Readln (h);
Write ('Nhap canh 2');
Readln (m);
Write ('Nhap canh 3');
Readln (n);
C:=h+m+n;
Writeln ('Chu vi hinh tam giac do la',C);
Readln;
End.
Var n:integer;
Begin
Repeat
Write('Nhap n = ');readln(n);
If (n > 8) or (n < 2) then write('Nhap sai, nhap lai ');
Until (n <= 8) and (n >= 2);
If n = 2 then write('Thu hai');
If n = 3 then write('Thu ba');
If n = 4 then write('Thu tu');
If n = 5 then write('Thu nam');
If n = 6 then write('Thu sau');
If n = 7 then write('Thu bay');
If n = 8 then write('Chu nhat');
Readln;
End.