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.

25 tháng 9 2018

var

a,b:integer;

begin

write(' nhap a va b: '); readln(a,b);

writeln(a);

write(b);

readln;

end.

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

5 tháng 5 2022

Var a:array[1..200] of real;

i,n,dem:integer;

s,tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

s:=0;

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

Bước 1: Nhập a

Bước 2: Nếu a mod 2=0 thì xuất a là số chẵn

Ngược lại xuất a là số lẻ

Bước 3: Kết thúc

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

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');

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

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

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

if (a>0) then writeln(sqr(a+b));

readln;

end.

uses crt;

var m:integer;

begin

clrscr;

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

if m mod 2=0 then writeln(m,' la so chan')

else writeln(m,' la so le');

writeln('Binh phuong cua ',m,' la: ',sqr(m));

writeln('Can bac hai cua ',m,' la: ',sqrt(m));

writeln('Gia tri tuyet doi cua ',m,' la: ',abs(m));

readln;

end.

19 tháng 4 2023

program XuatSoChan;
uses crt;
const
  Max_N = 20;
type
  MangSoNguyen = array [1..Max_N] of integer;
var
  A: MangSoNguyen;
  i, n: integer;
begin
  clrscr;
  write('Nhap so luong phan tu cua mang: ');
  readln(n);
  writeln('Nhap cac phan tu vao mang:');
  for i := 1 to n do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;
  writeln('Cac so chan trong mang la:');
  for i := 1 to n do
  begin
    if A[i] mod 2 = 0 then
      writeln(A[i]);
  end;
  readln;
end.