V
1
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
NT
2
25 tháng 12 2017
program bai1;
var
begin
write('Ten cua ban la ');readln(ten);
write('Nam hien tai la ');readln(nht);
write('Nhap nam sinh ');readln(ns);
write('Ban hoc lop ');readln(lop);
tuoi:=nht-ns;
writeln('Ten cua ban la ',tuoi);
readln
end.
NN
1
P
13 tháng 9 2021
2a. Input: Số n: số lượng số của dãy số nguyên
n số nguyên từ \(n_0\) đến \(n_{n-1}\)
Output: Tổng các số chẵn trong dãy số nguyên từ \(n_0\) đến \(n_{n-1}\)
b. Input: Một số nguyên n
Output: In ra Yes nếu n là số nguyên tố, ngược lại in No.
c. Input: Nhập 3 số a, b, c bất kì
Output: Đưa ra kết quả các loại tam giác, nếu không là tam giác, in ra: "Không là 3 cạnh của một tam giác".
NH
3 tháng 5 2021
Uses crt;
Var i,n,k,tong:integer;
tb:real;
a:array[1..1000] of integer;
f1,f2:text;
Begin
clrscr;
Assign(f1,'SONGUYEN.inp');
Assign(f2,'SONGUYEN.out');
Reset(f1);Readln(f1,n);
For i:= 1 to n do read(f1,a[i]);
close(f1);
k:=0;tong:=0;
For i:= 1 to n do If (a[i]<0) and (Abs(a[i]) mod 2 = 1) then
Begin
inc(k);
tong:=tong+a[i];
End;
tb:=tong/n;
Rewrite(f2);
writeln(f2,tb:0:2);
Writeln(f2,k);
close(f2);
readln;
End.
4 tháng 5 2021
Câu 2:
const fi='xauhoa.inp';
fo='xauhoa.out';
var f1,f2:text;
st,s1:string;
d,i:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
s1:='';
for i:=1 to d do
if st[i] in ['A'..'Z'] then s1:=s1+st[i];
writeln(f2,s1);
writeln(f2,length(s1));
close(f1);
close(f2);
end.
TT
2
11 tháng 10 2021
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln('Tong a+b la ',a+b);
writeln('Hieu a-b la ',a-b);
writeln('Tich cua a*b la ',a*b);
writeln('Thuong cua a/b la ',a/b:4:2);
readln;
end.
12 tháng 10 2021
Câu 2: (C++)
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << "Tong a+b la: " << a+b << "\nHieu a-b la: " << a-b << "\nTich a*b la: " << a*b << "\nThuong a/b la: " << (double)a/b << endl;
return 0;
}
Chúc bn học tốt!
HD
Hà Đức Thọ
Admin
5 tháng 9 2020
Cảm ơn Phước Thịnh đã tổ chức cuộc thi này. Thầy sẽ nhắn tin và trao giải cho các bạn đạt giải.
4 tháng 9 2020
Các bạn cố gắng đợi một thời gian rồi thầy @phynit sẽ thưởng cho các bạn
GH
28 tháng 4 2017
1/
program uoc;
uses crt;
var n,i,dem,x:word;
a:array[1..20] of longint;
begin
clrscr;
write('nhap so phan tu cua day:') ;readln(n);
while n>20 do
begin
write('nhap lai so phan tu thoa man toi da la 20 phan tu:');
readln(n);
end;
writeln('nhap cac phan tu cua mang:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap so nguyen x:'); readln(x);
dem:=0;
for i:=1 to n do
if x mod a[i] =0 then
begin
dem:=dem+1;
writeln(a[i],' la uoc cua ',x);
end;
if dem=0 then writeln('khong co phan tu la uoc cua ',x)
else write('co ',dem,' phan tu la uoc cua ',x);
readln;
end.
3:
#include <bits/stdc++.h>
using namespace std;
double x,y;
int main()
{
cin>>x>>y;
cout<<fixed<<setprecision(2)<<sqrt(x*x+y*y);
return 0;
}
Bn ơi bn viết r chụp lên đc k ạ ? Mik k định dạng đc ý