viet chuong trinh nhap vao tu ban phim diem toan cua 1 mang gom 30Hs.Xet va in ra man hinh nhung HS co diem toan lon hon 6,5
viet chuong trinh cho phep nhap diem kiem tra 1 ban nao do va in ra man hinh ket qua: neu diem nho hon 5 thi ban can co gang hon. neu ban lon hon hoac =5 va nho hon 6,5 thi ban dat diem trung binh. neu diem lon hon hoac = 6,5 va nho hon 8 thi ban dat diem kha. neu diem lon hon hoac = 8 thi ban dat diem gioi
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('ban can co gang hon');
if (diem>=5) and (diem<6.5) then writeln('ban dat diem trung binh');
if (diem>=6.5) and (diem<8) then writeln('ban dat diem kha');
if diem>=8 then writeln('ban dat diem gioi');
readln;
end.
viet chuong trinh nhap vao cac so nguyen tu ban phim va tinh tong cua chung.Chuong trinh dung lai khi tong lon hon hoac bang a(a la so nhap tu ban phim)va thong bao tong do ra man hinh(Free Pascal)
Giup minh voi
viet chuong trinh nhap vao so mguyen n va day so gom n la so nguyen tu ban phim in ra man hinh so lon nhat trong day so nguyen vua nhap
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do if max<a[i] then max:=a[i];
write('So lon nhat la:',max');
readln
end.
viet chuong trinh nhap vao mang so nguyen a(toi da 100 phan tu) tu ban phim in len man hinh cac phan tu chia het cho K (khong duoc nhap vao tu ban phim khi chay chuong trinh) trong mang
1.neu tu khoa nhap giu lieu va in ket qua ra man hinh
2.neu cau truc chung cua chuong trinh Pascal
3.viet thuat toan va chuong trinh
GIUP MINH VOI NHA XIN CAM ON
Nhap N so bat ki tu ban phim , dem cac so lon hon 10 va nho hon 20 va thong bao ket qua ra man hinh (Trong chuong trinh c++)
#include <iostream>
#include <iomanip>
#include <cmath>
#include <cstdio>
using namespace std;
#include <bits/stdc++.h>
int main() {
int n;
cin >> n;
int total = 0;
for (int i = 1; i <= n; i++) {
if (i % 20 == 0 && i % 10 != 0) {
if (i <= (n / 10)) {
total += i * i;
}
} else {
total += i;
}
}
cout << "The total is: " << total << endl;
for (int i = 0; i < n; i++) {
int du = i % 10;
int tongcacso = i % 10 * i % 10 * i % 10;
cout << "du = " << du << endl;
total += du * du * du;
cout << "\nsum = " << total << endl;
cout << "sum = (sum+i*i*i) " << endl;
}
return 0;
}
1 viet chuong trinh in ra man hinh bang cuu chuong 2
2 viet chuong trinh tinh tong S=1/1+1/2+.......+1/n voi gia tri n nhap vao tu ban phim
lam on giup minh voi thu nam minh kiem tra roi
Sử dụng For...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0;
Đối với t: = 1 đến n làm s: = s + 1 / t;
writeln('Tổng s là',s);
readln
kết thúc.
Sử dụng While...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0; t: = 1;
Câu 2:Trong khi t <= n làm
bắt đầu t: = t + 1;
s: = s + 1 / t kết thúc;
writeln('Tổng s là',s);
readln
kết thúc.
Giúp mình với ạ !
viet chuong trinh nhap mang a bat ky tu ban phim( n nho hon hoac bang 100) tinh va xuat ra mang hinh cac phan tu le hoac chan cua may vua nhap
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if (n>0) and (n<=100) then
begin
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];
end;
writeln('tong cac phan tu chan hoac le trong day la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.
Viet chuong trinh xet hoc luc cua em biet rang:diem trung binh lon hoac bang 8.0thi xep loai gioi,con lai xep loai kha.Voi diem trung binh cua 3 mon Toan,Van,Tin duoc nhap tu ban phim.
a) Tinh diem trung binh cua 3 mon do.
b )Xet hoc luc cua em
Giup mk voi can gap.mai thi roi😓
a)
Program bt;
Var a,b,c,tb:real;
Begin
Writeln('nhap a:=');
Readln(a);
Writeln('nhap b:=');
Readln(b);
Writeln('nhap c:=');
Readln(c);
tb:=a+b+c/3;
Writeln('diem trung binh cua ba mon:=',tb);
Readln;
End.
b)
Program bt;
Var tb:real;
Begin
Writeln('nhap tb:=');
Readln(tb);
if tb >=8,0 then writeln('hoc luc gioi') else writeln('hoc luc kha');
Readln;
End.