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.
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
Những chỗ sai được in đậm em nhé
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Sửa lại như sau:
program Ha_0908;
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);
readln;
end.
sai nhu nay
Hà 0908 ko ';'
writeln... =;4;2'); => ko co dau ' nay nha
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
Program ct;
Var i,n,so le, so chan:integer;
B:Array[1..n] of integer;
Begin
Write('n=');Readln(n);
For i:=1 to n do begin Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do Begin
if B[i] mod 2 <>0 then writeln('so le , ' );
If B[i] mod 2=0 then writeln('so chan ,' );
End;
Readln
End.
Lời giải:
Bài 1 :
a) var A : array[1..100] of real ;
b) var B : array[1..20] of integer ;
c) A[7] := 8 ;
Bài 2 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 3 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('Co tat ca so ban hoc sinh la'); readln(n);
write('Nhap diem mon tin cua cac ban');
for i:= 1 to n do
begin
write('Ban thu ',i,':'); readln(a[i]);
end;
readln
end.
Bài 4 : a,b giống bài 3
c)
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n,tong : integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if a[i] > 0 then tong:=tong+1;
write('Ket qua la',tong);
readln
end.
Bài 5: a và b tương tự bài 3
c+d )
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);
d) if i mod 2= 1 then write('Cac so le cua mang la:',i);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long s1,s2,s3,s4,i;
int main()
{
s1=0;
for (i=1; i<=100; i++) s1=s1+i*i;
s2=0;
for (i=1; i<=100; i++) if (i%2==1) s2+=i;
s3=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s3+=i*i;
else s3-=i*i;
}
s4=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s4+=i;
else s4-=i;
}
cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;
return 0;
}
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.