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.

#include <bits/stdc++.h>

using namespace std;

long long b;

int main()

{

cin>>b;

if (b%3==0) cout<<"3 la uoc cua b";

else cout<<"3 khong la uoc cua b";

return 0;

}

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.

20 tháng 10 2018

chắc có hoặc ko?

20 tháng 10 2018

ha

a)

*Các lỗi sai là:

-Sai thứ tự các lệnh (begin trước, uses crt sau)

-Program vd: thiếu dấu ;

-Writeln('Chao cac ban!'): thiếu dấu ;

-Sai thứ tự các lệnh(end trước readln sau)

-Readln: thiếu ;

*Sửa lại:

Program vd;
Uses crt;
Begin
Clrscr;
Writeln('Chao cac ban!');
Readln;
End.

b)

*Các lỗi sai là:

-Var a,b:=integer; Sai vì có dấu =

-Const c:=3; Sai vì có dấu :

-a:=200: Sai vì thiếu dấu ;

-b:=a/c: Biến b Sai kiểu dữ liệu;

-Writeln(b): Sai vì thiếu dấu ;

-Readln: Sai vì thiếu dấu ;

*Sửa lại:

Var a,b:integer;
Const c=3;
Begin
a:=200;
b:=a+c;
Writeln(b);
Readln;
End.

22 tháng 10 2016

pascal chưa nhận được giá trị của h.

22 tháng 10 2016

var a,b,c,P,S:real;

begin

write('nhap a: ');readln(a);

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

write('nhap c: ');readln(c);

P:=a+b+c;

S:=a*a/2;

writeln('chu vi: ',P);

write('dien tich: ',S);

readln

end.

  • Vì là số đo cạnh tam giác nên bạn nên khai báo bằng kiểu dữ liệu real (số thực) thay vì integer (số nguyên).
  • Phần giá trị biến S, vì a ứng với h nên \(\frac{ah}{2}=\frac{aa}{2}\)
  • Xét tổng quan về nội dung cả hai chương trình này đều chưa đủ. Vì a=h => tam giác cần tìm diện tích và chu vi là tam giác vuông => phải thỏa mãn aa = bb + cc hoặc bb=aa+cc hoặc cc=aa+bb (định lí pitago)
  • Nhưng trước hết, phải thỏa mãn bất đẳng thức tam giác: (dài lắm........ko viết đâu). Nếu bạn chưa học câu lệnh điều kiện thì chắc là 2 chương trình này đã đủ nội dung.
19 tháng 3 2020

A)

program Tinh_toan;

uses crt;

var x,y: integer;

tb: real;

thongbao: string;

const a = 2;

begin

clrscr;

thongbao:= 'Trung binh cong cua hai so x va y la: ';

write('Nhap gia tri cho x= ');readln(x);

write('Nhap gia tri cho y= ');readln(y);

tb:= (x + y) / a;

writeln(thongbao, tb:2:1);

readln

end.

B)

- Các tên biến là: x, y, tb, thongbao

_ Tên hằng là: a

4 tháng 11 2018

Tên chương trình: có dấu cách, sửa: tinh_tong;

Khai báo biến sai cấu trúc, sửa : thay := thành :

Lệnh gán biến tong sai, sửa : tong:=a+b;

End thiếu chấm, sửa : end.

7 tháng 11 2018

- program: có dấu cách

sửa: program tinh_tong;

- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán

sửa: var a, b, tong : integer;

- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị

sửa: tong := a+b;

- kết thúc chương trình: end viết thiếu

sửa: end.