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
1 tháng 3 2022
uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.
KV
5 tháng 5 2023
var i,j,n,d,sl:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
sl:=0;
for j:=1 to i do
if i mod j = 0 then
begin
d:=d+1;
if d=2 then sl:=sl+1;
end;
end;
write('Co ',sl,' so nguyen to <= ',n);
readln
end.
7 tháng 5 2023
program DemSoNguyenTo;
var
n, i, j, count: integer;
isPrime: boolean;
begin
write('Nhap so nguyen duong n: ');
readln(n); // Nhập số nguyên dương n từ bàn phím
writeln('Cac so nguyen to <= ', n, ' la: ');
count := 0; // Khởi tạo biến đếm số lượng số nguyên tố
for i := 2 to n do // Duyệt qua các số từ 2 đến n
begin
isPrime := true; // Giả sử số hiện tại đang xét là số nguyên tố
// Duyệt qua các ước của số hiện tại để kiểm tra số nguyên tố
for j := 2 to round(sqrt(i)) do
begin
if i mod j = 0 then
begin
isPrime := false; // Nếu có ước thì không phải là số nguyên tố
break;
end;
end;
if isPrime then // Nếu số hiện tại là số nguyên tố
begin
writeln(i); // In ra số nguyên tố đó
count := count + 1; // Tăng biến đếm số lượng số nguyên tố lên 1
end;
end;
writeln('Tong so nguyen to <= ', n, ' la: ', count);
end.
NM
6
20 tháng 5 2021
có thể bằng 2, 1 và 11
bằng 1 vì 1 giọt nước cộng 1 giọt nữa thì vẫn là 1 giọt
còn bằng 11 vì 1 thêm một số 1 nữa là 11
ML
18 tháng 6 2021
Program HOC24;
const fi='BAI2.INP';
fo='BAI2.OUT';
var f: text;
i,j,n,dem,t1,t2: longint;
function kt1(x,y: longint): boolean;
var s1,s2,s3,s4: string;
d,j: longint;
begin
kt1:=false;
str(x,s1);
str(y,s2);
d:=0; s3:=''; s4:='';
for j:=length(s2) downto 1 do s3:=s3+s2[j];
for j:= length(s1) downto 1 do s4:=s4+s1[j];
for j:=1 to length(s1) do
if s4[j]=s3[j] then d:=d+1;
if (d=length(s1)) and (x*x=y) then kt1:=true else kt1:=false;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
dem:=0;
for i:=1 to n do
for j:=1 to n do
if kt1(i,j) then dem:=dem+1;
writeln(f,dem);
for i:=1 to n do
for j:=1 to n do
if kt1(i,j) then
writeln(f,'(',i,';',j,')');
close(f);
end;
begin
ip;
out;
end.
27 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
int main()
{
cout<<"Chao cac ban"<<endl;
cout<<"Minh ten la:"<<endl;
cout<<"Minh hoc lop:";
return 0;
}
MP
4 tháng 12 2021
program XinChao;
uses crt;
begin
Clrscr;
writeln ('Chao cac ban!');
writeln('Minh ten la Nguyen Mai Phuong ');
writeln('Minh hoc lop 8A4');
readln;
end.
đáp án nha
Xin tặng cái vé báo vào mồm > xin vĩnh biệt bay acc
~HT~
tố cáo rồi