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.

1 tháng 10 2018

s:real;

a,h:Integer;

c:Integer;

20 tháng 11 2021

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

5 tháng 10 2016

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

10 tháng 10 2016

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

a)

-Biến a và Biến h: integer;

-Biến S: real;

b)

-Biến a, Biến b, Biến c và Biến d: integer;

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b<<endl;

cout<<a/b<<endl;

return 0;

}

13 tháng 11 2021

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a div b);

writeln(a mod b);

readln;

end.

26 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<"Phan nguyen la:"<<a/b<<endl;

cout<<"Phan du la:"<<a%b;

return 0;

}

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

19 tháng 12 2021

Bài 3: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b;

cout<<a/b;

return 0;

}

17 tháng 5 2021

Program HOC24;

var n,d,i: integer;

B: array[1..100] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do 

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

7 tháng 6 2021

uses crt;
var b:array[1..100] of longint;
      n,i,d,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(b[i]);
                  if b[i]>0 then begin
                        inc(d);
                        inc(s,b[i]);
                  end;
            end;
      writeln('Tong cac so duong: ',s);
      writeln('Co ',d,' so duong');
      readln;
end.