begin writeln(

TD

Trần Đăng Khôi

8 tháng 2 2023 - olm

begin writeln('15*4-30+12=',15*4-30+12); writeln('(10+5)/(3+1)-18/(5+1) =',(10+5)/(3+1)-18/(5+1)); writeln('(10+2)*(10+2)/(3+1)=',(10+2)*(10+2)/(3+1)); write('((10+2)*(10+2)-24)/(3+1)=',((10+2*(10+2)-24)/(3+1)); ...

Đọc tiếp

#Tin học lớp 8

0

H

huỳnh

22 tháng 11 2021

Dưới đây là một chương trình viết trong Pascal: program CT_dau_tien; uses crt; begin writeln(‘ Chao cac ban’); readln; end. *

Program là từ khóa;

Program là tên;

CT_dau_tien là từ khóa;

CT_dau_tien là tên;

begin là từ khóa;

begin là tên;

writeln là từ khóa;

writeln là tên;

#Tin học lớp 8

1

MH

Mai Hương Lê Thị

22 tháng 11 2021

Program là từ khóa;

CT_dau_tien là tên;

begin là từ khóa;

writeln là từ khóa;

Đúng(0)

F

ft7it7kxe5kxe

6 tháng 3 2023

program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln('KIEM TRA TAM GIAC'); writeln('nhap 3 canh a,b,c:'); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a)then begin writeln('day la 3 canh cua tam giac'); if(a*a=b*b+c*c) or(b*b=a*a+c*c)or(c*c=a*a+b*b)then writeln('TAM GIAC VUONG')else if(a=b)and(b=c)then writeln('TAM GIAC DEU') else if(a=b)or(a=c)or(b=c)then writeln('TAM GIAC CAN')else writeln('TAM GIAC THUONG'); end else writeln('khong phai ba canh tam giac'); readln;...

Đọc tiếp

#Tin học lớp 8

0

HN

Hải Nguyễn

7 tháng 1 2022

Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End

#Tin học lớp 8

0

NC

Nguyễn Cảnh Hùng

24 tháng 9 2019

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh;

usescrt;

var A, B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’); readln(A);

writeln(‘Nhap so B: ‘); readln(A);

if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)

readln;

End.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

24 tháng 9 2019

Đúng(0)

N

NicolasDoan123

23 tháng 10 2021

program Hello;
uses crt;
var
a: real;
b,c :integer;
begin
clrscr;
writeln (4+5);
read(a);
writeln (4+9);
read(b);
c:=(a+b)
writeln('Ket qua',c);
read(c);
readln;
end.

mọi người cho em hỏi em sai chỗ nào vậy ạ

#Tin học lớp 8

3

RH

Rin Huỳnh

23 tháng 10 2021

Giữa "var" và "a:real" thì ko xuống dòng

Đúng(0)

NV

Người Vô Danh

23 tháng 10 2021

hình như là c:=a+b chưa có ;

Đúng(0)

NC

Nguyễn Cảnh Hùng

5 tháng 1 2019

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh

uses crt;

var A B: integer;

begin

clrscr;

writeln(‘Nhap so A: ’) readln(A);

writeln(‘Nhap so B, khac so A: ‘); readln(B);

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

end.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

5 tháng 1 2019

Đúng(0)

NC

Nguyễn Cảnh Hùng

29 tháng 4 2017

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program So_Sanh;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

29 tháng 4 2017

Đúng(0)

HT

Huy Tùng Vũ

23 tháng 12 2021

Một số câu lệnh trong ct sau đây viết ko đúng, em hãy sửa lại những lỗi sai

program So_sanh

usercrt;

var A,B=interger;

Begin clrscr;

writeln('Nhap so A:'); readln(A);

writeln('Nhap so B:'); readln(B);

if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A)

readln

End.

#Tin học lớp 8

0

TD

Trần Đăng Khôi

22 tháng 2 2023 - olm

T:=0
for i:=1 to 100 do T:=T+1/i;
writeln(T)
T:=0;i:=1
write i<=100 do begin T:=T+1/i; i:=i+1 end;
writeln(T)

#Tin học lớp 3

1

NT

Nrưè Trrứ Danh

31 tháng 8 2023

???

Đúng(0)

I

𝔑𝔦𝔫𝔥 𝔗ị𝔠𝔥-𝒦𝐹𝒞

28 tháng 12 2020

Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:Program So sanh;Uses crt;Var m, n= integer;Begin if m > n then writeln(m lon hon n); else if m < n writeln(m nho hon n); else writeln('m bang n'); readlnEnd.P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm...

Đọc tiếp

#Tin học lớp 8

1

UB

Ú Bé Heo (ARMY BLINK)

28 tháng 12 2020

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

Clrscr;

Writeln('Hay nhap so m va n');

if m > n then writeln(m lon hon n);

if m < n then writeln(m nho hon n);

else writeln('m bang n');

readln

End.

Đúng(3)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP