Những câu hỏi liên quan
nhanlamcute
Xem chi tiết
KhảTâm
7 tháng 3 2021 lúc 15:48

uses crt;

var n,i,x:integer;

begin

writeln('Nhap so: ');readln(n);

For i:=1 to 9 do writeln(n,'x',i,'=',n*i);

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyen Tu
Xem chi tiết
Lucky Kate
Xem chi tiết
Bao112233
17 tháng 12 2022 lúc 21:22

b) 

#include <iostream>
using namespace std;
int a;
int main(){
    cin>>a;
    if (a%2==0) cout<<a<<" la so chan";
    else cout<<a<< "la so le";
    return 0;
}

Bình luận (0)
phạm ngọc hân
Xem chi tiết
Hắc Phong
Xem chi tiết
duong nguyenvan
21 tháng 11 2017 lúc 20:31

program bai1;

uses crt;

var a,b,c,s: real;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

s:=a+b+c;

writeln('tong ba so a,b,c =',s:4:2);

readln;

end.

Bình luận (0)
duong nguyenvan
21 tháng 11 2017 lúc 20:33

program bai1;

uses crt;

var n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

if n mod 2 = 0 then

writeln('la so chan ') else

writeln('la so le ');

readln;

end.

Bình luận (0)
duong nguyenvan
21 tháng 11 2017 lúc 20:39

bài 3 :

B1: S <- 0 ; i<-0;

B2: i<- i+1;

B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.

Bình luận (1)
Anh Tran
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 5 2022 lúc 9:16

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

if nn>a[i] then nn:=a[i];

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Vũ Hoài Nam
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2021 lúc 22:50

2:

#include <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

cout<<a*a;

return 0;

}

Bình luận (0)
Phan Đào Gia Hân
Xem chi tiết
T Đạt
Xem chi tiết
Thanh 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.

Bình luận (0)
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.

Bình luận (0)