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.
program amduong;
var n:int64;
begin
readln(n);
if n<0 then write('am') else if n>0 then write('duong') else write('khong phai so am cung khong phai so duong');
readln;
end.
program diem;
var st,s:ansistring;i,j:longint;n:real;
begin
readln(st);
for i:=1 to length(st) do if st[i] in ['0'..'9'] then
begin
for j:=i to length(st) do s:=s+st[j];
val(s,n);
if n>5 then write('dau') else write('rot');
break;
end;
readln;
end.
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
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
t:=t+a[i];
writeln(t);
readln;
end.
uses crt;
var a,b,c: integer;
begin
clrscr;
write('Nhap ngay; thang; nam :'); readln(a,b,c);
if (a>=1) and (a<=31) then write('Ngay hop le');
if (b>=1) and (b<=12) then write('Thang hop le');
if (c>=0) and (c<=2021) then write('Nam hop le');
readln
end.
uses crt;
var a,b,c: integer;
begin
clrscr;
write('Nhap ngay; thang; nam :'); readln(a,b,c);
if (a>=1) and (a<=31) then write('Ngay hop le');
if (b>=1) and (b<=12) then write('Thang hop le');
if (c>=0) and (c<=2021) then write('Nam hop le');
readln
end.
 | Trả lờiChuyển tiếp |
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a<0) then writeln(a,' la so am')
else if (a>0) then writeln(a,' la so duong')
else writeln(a,' khong la so am cung khong la so duong');
if (b<0) then writeln(b,' la so am')
else if (b>0) then writeln(b,' la so duong')
else writeln(b,' khong la so am cung khong la so duong');
if (a>0) then writeln(sqr(a+b));
readln;
end.
Câu 1
* câu lệnh thiếu
if <điều kiện> then < câu lệnh>
* câu lệnh đủ
if <điều kiện> then < câu lệnh 1 > else < câu lệnh 2>
Câu 2 chỉ có thế thôi à bạn. Đề bài k rõ lắm
Câu 1:
-Câu lệnh thiếu:
if <điều kiện> then<câu lệnh>;
-Câu lệnh đủ:
if <điều kiện> then <câu lệnh 1>
else <câu lệnh 2>;
Em phải ghi rõ dữ liệu vào thì mới giải được chứ. Và theo quy định như thế nào thì HS rớt và HS đậu như (điểm >5 là đầu,<5 là rớt chẳng hạn)
program ho_tro;
uses crt;
var diem: real;
begin
clrscr;
writeln(' nhap diem:'); readln(diem);
if diem>5 then writeln( ' thi dau:')
else writeln( ' thi rot:');
readln;
end.