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.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
s:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do
s:=s*a[i];
writeln(s:0:0);
readln;
end.
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until a>=b;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b>>t;
if (t==a+b) cout<<"chuc mung ban da tinh dung";
else cout<<"rat tiec ban da lam sai";
return 0;
}
so_am = 0
so_duong = 0
while True:
n = int(input("Nhap vao mot so nguyen: "))
if n == 0:
break
elif n < 0:
so_am += 1
else:
so_duong += 1
print("So am: ", so_am)
print("So duong: ", so_duong)
a = int(input("Nhập số nguyên dương a: "))
while a <= 0:
a = int(input("Số bạn nhập không phải số dương, vui lòng nhập lại: "))
print("Bạn đã nhập đúng quy tắc")