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 tinhtong;
uses crt;
var a,b: real;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
writeln('tong cua hai so a va b = ',a+b :4:2);
readln;
end.
Sửa đề: Nhập 1 số n bất kỳ
uses crt;
var st:string;
i,d,x,t,y,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln(t);
readln;
end.
Lời giải:
Bài 1 :
program hotrotinhoc ;
var i,x : integer ;
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
while x<>0 do
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
end;
readln
end.
chẳng hạn cho 1 số bất kì bằng n nha thì sẽ làm được
var n:integer;
begin
write ( 'nhap gia tri cua n: ' );
readln (n);
if n mod 2 = 0 then write ( 'n la so chan' )
else write ( 'n la so le' );
end.
var n: integer;
begin
write('Nhap so: '); readln(n);
if n mod 2=0 then writeln(n,' la so chan.')
else writeln(n,' la so le.');
readln;
end.
Câu 1 viết chương trình nhập vào 1 dãy n số nguyên bất kỳ .In ra màn hình tổng các số chia hết cho 2
uses crt;
var i,n:integer;
t:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i] mod 2=0 then t:=t+a[i];
end;
write(t);
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
readln;
end.
c:
#include <bits/stdc++.h>
using namespace std;
long long ln,i,n,x;
int main()
{
cin>>n;
ln=LLONG_MIN;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a*b<<endl;
cout<<fixed<<setprecision(2)<<(a*1.0)/(b*1.0);
return 0;
}
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
uses crt;
var n,i,dem:byte;
a:array[1..100] of longint;
tong:longint;
begin
clrscr;
write('nhap N:');readln(n);
writeln('nhap N so:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
dem:=0; tong:=0;
for i:=1 to n do
begin
if (a[i]>10) and (a[i]<20) then
begin
dem:=dem+1;
tong:=tong+a[i];
end;
end;
if dem=0 then write('khong co so lon hon 10 va nho hon 20');
readln;
end.
chuc ban hoc tot