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.

28 tháng 4 2018

trả lời dùm mk đi

10 tháng 4 2019

Lời giải :

program hotrotinhoc ;

var i,N,Tong : integer ;

begin

write('Nhap gia tri cua N :'); readln(N);

tong:=0;

for i:= 1 to n do

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

write('Tong cac so le cua day so la :',tong);

readln

end.

27 tháng 4 2018
https://i.imgur.com/5IhifH0.jpg
30 tháng 4 2018

Program Search_Min;
Uses Crt;
Var i, N, Min: Integer;
A: array[1..100] of Integer;
Begin
Clrscr;
Write('Nhap do dai cua day so,N='); Readln(N);
Writeln('Nhap cac phan tu cua day so:');
For i:=1 to N do
Begin
Write('a[',i,']='); Readln(a[i]);
End;
Min:=a[1];
For i:=2 to N do
begin if Min>a[i] then Min:=a[i];
end;
Writeln('Gia tri Min:',Min);
Readln
End.

21 tháng 11 2018

var x,y,z:integer;

begin

Write('nhap x=');

Readln(x);

Write (' nhap y =');

Readln(y);

z:=x;

x:=y;

y:=z;

Write ('gia tri x la: ',x);

Write ('gia tri y la : ',y);

Readln;

end.

28 tháng 4 2018

Để xóa kí tự bên phải con trỏ chuột ta sử dụng lệnh Delete.

3 tháng 4 2019

Ta dùng DELETE

9 tháng 5 2018

Bài làm mình để ở đây: https://pastebin.com/EASPa7M0