Những câu hỏi liên quan
Anh Tuấn
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 12 2021 lúc 22:50

Đề thiếu rồi bạn

Bình luận (0)
TRƯƠNG THỊ KIM NGUYÊN
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 4 2022 lúc 13:42

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

writeln(a[n]);

readln;

end.

Bình luận (0)
Vũ Kiệt
Xem chi tiết
Trần Ái Linh
12 tháng 5 2021 lúc 12:29

program im_14424;

uses crt;

var

begin

clrscr;

write('Nhap vao y: ');

readln(y);

write('Nhap vao x: ');

readln(x);

if y>0 then 

begin

for i:=1 to y do

x:=x*x;

end;

write('So can tinh la: ',x);

readln

end.

Bình luận (5)
Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:35

uses crt;

var x,y,lt,i:integer;

begin

clrscr;

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

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

lt:=1;

for i:=1 to y do 

 lt:=lt*x;

writeln(lt);

readln;

end.

Bình luận (0)
phamthiminhanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 1 2021 lúc 20:13

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong');

readln;

end.

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');

if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');

if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');

if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');

readln;

end.

Bình luận (1)
Võ Đỗ Đăng Khoa
Xem chi tiết
Nguyễn Hoàng Tân Bảo
Xem chi tiết
Nguyễn Đăng Khải Hoàn
14 tháng 10 2021 lúc 9:02

C1:

khai báo:

      program  hieu_a_va_b   ("tự đặt tên cái này ko cần thiết)

      uses crt;

      var a, b : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

             writeln ("hieu cua hai so la: a - b=" , a - b);

        end.

C2:

khai báo:

      program    tinh_ba_so

      uses crt;

      var a, b, c : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

            writeln ("nhap so c");  read(c);

             writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);

        end.

C3:

khai báo:

      program    tinh_ba_so

      uses crt;

      var x, y, z : integer

phần thân:

       begin

            writeln ("nhap so x");  read(x);

            writeln ("nhap so y");  read(y);

            writeln ("nhap so z");  read(z);

             writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);

        end.

nhớ chạy thử chương trình nha. xem có lỗi ko.

(nhớ tick cho mk nha)

 

 

 

 

Bình luận (0)
Nguyễn Hoàng Tân Bảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 10 2021 lúc 23:36

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

Bình luận (0)
Trần Ngọc Tâm Anh
Xem chi tiết
Nguyễn Huỳnh Như
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 4 2021 lúc 19:35

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  if a[i]<0 then write(a[i]:4);

readln;

end.

Bình luận (1)
Nguyễn Lê Phước Thịnh
19 tháng 4 2021 lúc 19:35

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  if a[i]>0 then write(a[i]:4);

readln;

end.

Bình luận (0)