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.

15 tháng 12 2019

Hỏi đáp Tin học

15 tháng 12 2019

uses crt;

var a,b,t:integer;

begin

clrscr;

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

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

write('nhap so ban cho la tong cua hai so ',a,' va ',b,'='); readln(t);

if t=a+b then writeln('chuc mung! ban da tinh dung')

else

begin

writeln('rat tiec! ban da tinh sai');

writeln('ket qua dung la: ',a+b);

end;

readln;

end.

15 tháng 12 2019

tại sao hai lần begin vậy bạn

15 tháng 12 2019

Vì sau "then" chỉ có thể thực hiện 1 câu lệnh mà bài trên cần thêm 2 câu lệnh nx. Nên ta dùng thêm 1 lần begin nx

Một bài có thể có rất nhiều begin nhưng bao nhiêu begin thì bấy nhiêu end

15 tháng 12 2019

minhf thấy trong bài giải có 1 begin mà bạn!

mà tại sao c:6:2

hay bạn chạy chương trình giùm mình đc ko

15 tháng 12 2019

à mình nhầm chỗ end kia là tại sao là ; vậybạn! Xin lỗi bạn do mình ngu tin

15 tháng 12 2019

máy bạn k tải pascal à

15 tháng 12 2019

ko bạn! Cho viết giấy chứ ko cho thực hành

15 tháng 12 2019

bạn ơi giải thích giùm mình chỗ end; đi ạ

15 tháng 12 2019

gianroi xin lỗi nha mik ngu văn lắm k biết giải thích thế nào nữa khocroi

15 tháng 12 2019

@Nguyễn Minh Lệ cô giải thích giùm bạn ấy với

15 tháng 12 2019

@Nguyễn Minh Lệ

15 tháng 12 2019

Begin

{Lệnh thực hiện}

End;

Cái này gọi là begin con nó bao tổng thực hiện các lệnh trước đó

15 tháng 12 2019

dạ con cảm ơn ạ

15 tháng 12 2019

à bạn ơi! tại sao c:6:2

22 tháng 12 2021

#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;

}

14 tháng 10 2023

Theo em khi thực hiện chương trình này không ra kết quả như mong muốn vì khi khởi tạo giá trị ban đầu cho biến S là 0 trong điều kiện lặp khiến cho giá trị của S trở lại thành 0 sau mỗi lần lặp. Điều này dẫn đến kết quả sai.

27 tháng 3 2021


program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

 

27 tháng 3 2021

giúp mình câu này luôn nhé

In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên 

18 tháng 11 2023

6 tháng 1 2021

uses crt;

var a:integer;

begin

clrscr;

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

if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

28 tháng 2 2021

var A: integer;

begin

write('Nhap vao mot so A='); readln(A);

if A>0 then write('So A la so nguyen duong');

if A<0 then write('So A la so nguyen am');

If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');

readln;

end.

 

30 tháng 12 2022

Input: a,b

Output: max,min của hai số a,b

15 tháng 12 2020

15 tháng 12 2020

Không có họ tên và số báo danh ạ ?

13 tháng 9 2023

* Cách tính

Tạo biến X để lưu số giây cần đổi

Hỏi người dùng nhập số giây X

Chuyển X thành giờ, phút, giây bằng cách:

Tính số giờ bằng cách chia X cho 3600 và lấy phần nguyên

Tính số phút bằng cách chia số dư của bước trên cho 60 và lấy phần nguyên

Tính số giây bằng cách lấy số dư của bước trên

Chương trình

loading...

20 tháng 4 2022

SOS:)