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.

11 tháng 12 2020

program tinh_tong;

uses crt;

var a,i,n : integer;

begin

a:=0

writeln('nhap so tu nhien can tinh tong');readln(n);

If (n> 2018) then write('nhap lai'), else 

For i:=1 to n do a:=a+i;

writeln('tong cac so tu nhien',a);

readln;

end.

QT
Quoc Tran Anh Le
Giáo viên
23 tháng 8 2023

tb = sum(A) / len(A)

print(tb)

14 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"La so chan";

else cout<<"La so le";

return 0;

}

13 tháng 11 2021

Tham khảo!


program baitap;
uses crt;
var a:integer;
procedure chanle(x:integer);
begin
     if ((x mod 2) = 0) then write('So nhap vao la so chan.') else
     write('So nhap vao la so le.');
end;
begin
     clrscr;
     write('Nhap a: ');readln(a);
     chanle(a);
     readln;

end

17 tháng 8 2017

Assign(f1,’dulieu.txt’);

Reset(f1);

Read(f1,a,b);

Close(f1);

11 tháng 5 2018

Assign(f,’KQ.TXT’);

Rewrite(f);

Write(f,C,V);

Close(f);

17 tháng 3 2017

Assign(f2,’ketqua.txt’);

Rewrite(f2);

Write(f2,T,S);

Close(f2);

29 tháng 12 2017

Assign(f,’DL.TXT’);

Reset(f);

Read(f,x1,x2);

Close(f);

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 100 do 

  if i mod 2=1 then write(i:4);

readln;

end.