Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lê Đoàn Bảo Long
Xem chi tiết
nguyễn an phát
24 tháng 3 2021 lúc 10:38

program bang_cuu_chuong;

uses crt;

var n,tich,i:integer;

begin

clrscr;

n:=2;i:=1;

while n<=9 do

begin

while i<=10 do

begin

tich:=n*i;

writeln(n,' x ',i,' = ',tich);

i:=i+1;

end;

n:=n+1;i:=1;

end;

readln;

end.

Thảo Thảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:02

uses crt;

var i,j:integer;

begin

clrscr;

for i:=2 to 9 do

  begin

for j:=1 to 10 do 

  writeln(i,'*',j,'=',i*j);

end;

readln;

end.

Linh Popopurin
Xem chi tiết
Khoa Hà
15 tháng 3 2023 lúc 21:09

Tui làm câu 1 trc nha:

Khoa Hà
15 tháng 3 2023 lúc 21:14

Câu 2:

Khoa Hà
15 tháng 3 2023 lúc 21:19

Câu 1:

T Đạt
Xem chi tiết
HT.Phong (9A5)
29 tháng 3 2023 lúc 16:26

uses crt;
var n, i : integer;
begin clrscr;
readln(n);
for i:=1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln;
end.

Nguyễn Hoàng Duy
29 tháng 3 2023 lúc 23:42

program MultiplicationTable;

uses crt;

var
  N, i, j: integer;

begin
  clrscr;
  write('Enter N: ');
  readln(N);

  for i := 1 to 9 do
  begin
    writeln(N, ' x ', i, ' = ', N*i);
  end;

  readln;
end.

Dương Nguyệt Hạ
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2022 lúc 7:27

#include <bits/stdc++.h>

using namespace std;

long long i;

int main()

{

for (i=1; i<=10; i++)

cout<<"2*"<<i<<"="<<2*i<<endl;

return 0;

}

Lê Văn Hà TámB
Xem chi tiết
Phong Thần
14 tháng 2 2022 lúc 7:57

Câu 1: 

program chieu_cao;

uses crt;

var Nam, Linh: real;

begin

clrscr;

write ('Nhap chieu cao cua Nam:'); readln (Nam);

write ('Nhap chieu cao cua Linh:'); readln (Trang);

if Nam > Linh then writeln ('Ban Nam cao hon');

if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');

readln

end.

Phong Thần
14 tháng 2 2022 lúc 8:11

Câu 2: 

program Tich;

var N,i: interger;

      P: longint;

begin

write ('N='); readln (N);

P:=1;

for i:=1 to N do P:=P*i;

writeln (N,' ! = ',P);

readln

end.

Nguyễn Lê Phước Thịnh
14 tháng 2 2022 lúc 8:32

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

readln(n);

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.

UI
Xem chi tiết
Phat Pham
15 tháng 11 2016 lúc 22:00

ê mi phải lớp 7a2 khống

UI
19 tháng 11 2016 lúc 12:46

ừ ừ có j ák

t có nhìu nik lắm !!!!!!!

Nguyễn Anh Thư
Xem chi tiết
Lê Như Ngọc
Xem chi tiết
Minh Lệ
7 tháng 5 2020 lúc 13:21

Bài 2:

Program hotrotinhoc_hoc24;

var i,n,d,d1: integer;

begin

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

i:=0;

while i<n do

begin

i:=i+1;

if i mod 2=1 then d:=d+1;

if i mod 2=0 then d1:=d1+1;

end;

writeln('Co ',d1,' so chan tu 1 den ',n);

write('Co ',d,' so le tu 1 den ',n);

readln

end.

Minh Lệ
7 tháng 5 2020 lúc 13:21

Bài 1:

Program hotrotinhoc_hoc24;

var i,n: integer;

begin

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

i:=0;

while i<10 do

begin

i:=i+1;

writeln(n,'*',i,'=',n*i);

end;

readln

end.