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.

20 tháng 10 2018

chắc có hoặc ko?

20 tháng 10 2018

ha

26 tháng 2 2021

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

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

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

Không đúng nha bạn

24 tháng 3 2022

program  bang_cuu_chuong ;

Uses crt;

Var N , i : integer ;

Begin 

           Clrscr ; 

          write('Nhap so N=');

          readln(N);

          writeln;
          write ('Bang nhan',N) ;

          writeln;

           for i:=1 to 10 do

          writeln(N,'x',i:2,'=',N*i);

          readln ;

          End.

24 tháng 3 2022

đau tay

program tong hai so;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap gia tri a);readln(a);

write('nhap so b'); readln(b);

c:=a+b;

writeln(tong cua hai so vua nhap la:',c);

readln;

end.

2 tháng 11 2019

cảm ơn bạn nhiều nhahaha