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.

26 tháng 12 2019

Câu 1:

*Dạng 1: Dạng thiếu

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b);

if b>a then writeln(b,' lon hon ',a);

if a=b then writeln('hai so bang nhau');

readln;

end.

*Dạng 2: Dạng đủ

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b)

else if a<b then writeln(b,' lon hon ',a)

else writeln('hai so bang nhau');

readln;

end.

Câu 2:

-Lỗi 1: var a,b,s=real;

Sửa lại: var a,b,s:real;

-Lỗi 2: write('nhap a='),

Sửa lại: write('nhap a=');

-Lỗi 3: readln('a');

Sửa lại: readln(a);

-Lỗi 4: Write(nhap b='),

Sửa lại: write('nhap b=');

-Lỗi 5: readln(b');

Sửa lại: readln(b);

-Lỗi 6: write('s=s);

sửa lại: write('s=',s);

11 tháng 2 2020

Câu 1:

*Dạng 1: Dạng thiếu

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b);

if b>a then writeln(b,' lon hon ',a);

if a=b then writeln('hai so bang nhau');

readln;

end.

*Dạng 2: Dạng đủ

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b)

else if a<b then writeln(b,' lon hon ',a)

else writeln('hai so bang nhau');

readln;

end.

Câu 2:

-Lỗi 1: var a,b,s=real;

Sửa lại: var a,b,s:real;

-Lỗi 2: write('nhap a='),

Sửa lại: write('nhap a=');

-Lỗi 3: readln('a');

Sửa lại: readln(a);

-Lỗi 4: Write(nhap b='),

Sửa lại: write('nhap b=');

-Lỗi 5: readln(b');

Sửa lại: readln(b);

-Lỗi 6: write('s=s);

sửa lại: write('s=',s);

8 tháng 12 2020

các này là câu hỏi hay câu trả lời???

5 tháng 12 2017

nhap a,b gop lam 1 dc nhe

program Tich;

uses crt;

var a:b,Tich; integer;

begin

clrscr;

Write('nhap a va b='); readln(a,b);

Tich:a*b;

Writeln('tich cua a va b la:', Tich:1:0);

Readln;

end.

5 tháng 12 2017

program Tich;

uses crt;

var a,b,Tich : integer;

begin

clrscr;

Write('Nhap a ='); readln(a);

Write('Nhap b='); readln(b);

Tich := a*b;

Writeln('Tich cua a va b la: ',Tich:8:20);

Readln;

end.

program tong hai so;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap gia tri a);readln(a);

write('nhap so b'); readln(b);

c:=a+b;

writeln(tong cua hai so vua nhap la:',c);

readln;

end.

2 tháng 11 2019

cảm ơn bạn nhiều nhahaha

16 tháng 3 2023

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

16 tháng 3 2023

:v

13 tháng 10 2019

S:=a*b thiếu dấu ;

29 tháng 6

+thứ nhất, chỗ S:=a*b bạn thiếu ";"

+thứ hai, chỗ readln trước "end." thì ko đc thêm ";" vào sau "readln"

26 tháng 2 2021

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

write('Nhap so n;'); readln(n);

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

19 tháng 3 2020

Program GPTBN ;

var a,b: Real ;

Begin

Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)

else if b=0 then writeln (' Phuong trinh co vo so nghiem ')

else writeln (' phuong trinh vo nghiem ');

Readln;

End.

19 tháng 3 2020

program gptbn;

uses crt;

var a,b:real;

begin

write('Nhap he so a,b cua phuong trinh: ');readln(a,b);

if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)

else if b = 0 then writeln('Phuong trinh co vo so nghiem')

else writeln('Phuong trinh vo nghiem');

readln

end.