chuong trinh choi co vua

cái này dễ

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

if st[i] in ['0'..'9'] then 

begin

write(st[i]:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

TrA lời theo cách học lớp 10

#include <bits/stdc++.h>

using namspace std;

int main()

{

int A[1000],i,n,kt;

cin>>n;

for (int i=1; i<=n; i++)

cin>>A[i];

for (int i=1; i<=n; i++)

if (sqrt(A[i])*sqrt(A[i])==A[i]) cout<<A[i];

return 0;

}

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];

write(t);

readln;

end.

Trả lời theo cách học lớp 10 kb t

uses crt;

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

i,n,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(A[i]:4);

end;

readln;

end.

Trả lời theo cách học lớp 10

1

Table tools/Layout/Rows and columns/Delete/Delete Rows

1. Việc rửa bát sau bữa ăn: Nếu có máy rửa bát, một số người có thể chọn sử dụng máy để tiết kiệm thời gian và công sức. Tuy nhiên, nếu không có máy rửa bát, họ sẽ phải rửa bát bằng tay mỗi ngày để đảm bảo vệ sinh trong nhà bếp.

2. Việc đi làm bằng phương tiện công cộng: Trong một số trường hợp, nếu có xe hơi riêng, một số người có thể chọn sử dụng xe hơi để đi làm vì tiện lợi và thoải mái. Tuy nhiên, nếu không có xe riêng hoặc điều kiện giao thông phức tạp, họ sẽ phải chọn phương tiện công cộng như xe buýt hoặc tàu điện để đến nơi làm việc.