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.

18 tháng 11 2021

ko ngen

18 tháng 11 2021

ủa là sao, ko thì thoi chứ mắc j chọc ghẹo ngt

26 tháng 6 2023

chịu

 

Python:

n=int(input("Nhap so nguyen duong n:"))

dem=0

for i in range(1,n+1):

 if i%4==0:

  dem=dem+1

print(dem)

31 tháng 10 2021
ĐúngTrue
|x|=2abs(x)=2

 

22 tháng 8 2023

Đồng ý với ý kiến

=> Khi cùng tim thông tin về một vấn đề, nhưng có người sẽ tìm được rất nhanh và chính xác, có người thì không vì cách họ tìm kiếm tài liệu không đúng hoặc từ khóa tìm kiếm chưa đầy đủ

const fi='so.equ';

fo='soam5.equ';

var f1,f2:text;

i,n:integer;

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

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

for i:=1 to n do

if (a[i]<0) and (a[i] mod 5=0) then write(f2,a[i]:4);

close(f1);

close(f2);

end.

17 tháng 11 2021

Quảng cáo Hoidap247 bên Hoc24 ? lag à 

17 tháng 11 2021

Ui, bạn ơi, vào chỗ khác mà quảng cáo nha, ở đây chỉ có fan HOC24 thoi =))

13 tháng 3 2021

Program HOC24;

var s: string;

begin

write('Nhap xau: '); readln(s);

delete(s,1,1);

write(s);

readln

end.

14 tháng 3 2023

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

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

15 tháng 3 2023

em cảm ơn ạ <3

Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều Bài 1: Cho đoạn chương trình sau: Program Vidu;Var      A,B : text;     F : integer;Begin     Assign ( A,'Songuyen.TXT');     Assign ( B,'Soam.TXT');     reset (A);     rewrite (B);     while not eof (A) do     begin            read ( A, x);            Ifx>= 0 then            Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)            else write ( B,x);      end;      close (A);...
Đọc tiếp

Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều leu

Bài 1: Cho đoạn chương trình sau: 

Program Vidu;

Var 

     A,B : text;

     F : integer;

Begin

     Assign ( A,'Songuyen.TXT');

     Assign ( B,'Soam.TXT');

     reset (A);

     rewrite (B);

     while not eof (A) do

     begin

            read ( A, x);

            Ifx>= 0 then

            Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)

            else write ( B,x);

      end;

      close (A); close (B);

End.

Xác định ý nghĩa của các lệnh và cho biết chương trình trên làm công việc gì?

Bài 2: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP và ghi vào tệp SONGUYEN.OUT tổng các số nguyên chẵn.

0
3 tháng 3 2021

b x = b*x hay là như nào vậy giải thích chỗ này xem

3 tháng 3 2021

Thiếu đấu cộng á b+x