PL
3
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
KV
16 tháng 5 2023
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.
17 tháng 5 2020
uses crt;
var n,t:int64;
dem,i:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<1000000000);
writeln('Cac so chinh phuong trong khoang tu 1 toi ',n,' la: ');
dem:=0;
t:=0;
for i:=1 to n do
if sqrt(i)=trunc(sqrt(i)) then
begin
write(i:6);
inc(dem);
t:=t+i;
end;
writeln;
writeln('So so chinh phuong trong khoang tu 1 toi ',n,' la: ',dem);
writeln('Tong cac so chinh phuong trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
13 tháng 12 2016
uses crt;
var a,b:longint;
Begin
clrscr;
Writeln('Nhap a,b=');
Readln(a,b);
writeln('tich hai so la : a*b=',a*b);
writeln('thuong hai so la :a/b=',a/b);
Readln;
End.
BA
30 tháng 12 2019
program ho_tro;
uses crt;
var n,i: integer;
s: longint;
begin
clrscr;
writeln(' nhap so n'); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(' tong cua' , n, ' so tu nhien dau tien =' , s);
readln
end.
8 tháng 3 2022
1:
#include <bits/stdc++.h>
using namespace std;
long long a[100],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cout<<"Day ban dau la: "<<endl;
for (i=1;i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
sort(a+1,a+n+1);
cout<<"Day tang dan la: "<<endl;
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
8 tháng 2 2022
uses crt;
var n,i:longint;
kt:boolean;
begin
clrscr;
readln(n);
if (n<2) then writeln('Nhap lai')
else
begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then writeln('la so nguyen to')
else writeln('khong la so nguyen to');
end;
readln;
end.
TD
8 tháng 10 2016
Em hãy quan sát bộ thiết bị mẫu gồm bàn phím , chuột , màn hình , máy in , loa , tai nghe , sau đó thực hiện những thao tác sau đây để làm quen với các thiết bị vào/ra của máy tính:
* Đeo cặp tai nghe vào tai
* Kéo khay đựng giấy của máy in ra , đặt thêm vài tờ giấy vào đó
Em quan sát cách bố trí các phím trên bàn phím và có 4 mấy cặp phím trùng tên nhau.
Theo em vì để cho thuận tiện để đánh 10 ngón và sử dụng lệnh một cách dễ dàng hơn nên nhà sản xuất lại thiết kế những phím trùng tên nhau như vậy.
hfdhfd
.........