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.

24 tháng 3 2021

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.

29 tháng 3 2023

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

29 tháng 3 2023

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.

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.

15 tháng 3 2023

Tui làm câu 1 trc nha:

15 tháng 3 2023

Câu 2:

#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;

}

7 tháng 5 2020

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.

7 tháng 5 2020

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.

11 tháng 4 2023

Cách 1 dùng lệnh for do:

Uses crt;

var i,n,k: integer;

begin clrcsr;

readln(n);

for i:=1 to n do begin

if(i mod 2=0) and (i>=10) then k:=k*i;

end;

writeln(k);

readln;

end.

Cách 2 dùng lệnh while do

Uses crt;

var m,n,o: integer;

begin clrcsr;

readln(n);

o:=1;

m:=1;

while (m<n) do begin

m:=m+1;

if(m mod 2=0) and (m>=10) then o:=o*m;

end;

writeln(o);

readln;

end.