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.
Mọi người có thể giúp mk khôi phục cái này được ko. Mỗi khi mk mở nó đều ra notpad
https://www.youtube.com/watch?v=NUzLKQv9Jd8
bạn vào link này để xem hướng dẫn đi
bạn tham khảo
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
Câu hỏi của Ngân Nguyễn - Tin học lớp 8 | Học trực tuyến
nhớ khai báo thêm biến S nhé
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
if (a>=8.0) cout<<"Gioi";
else if (6.5<=a) cout<<"Kha";
else if (5.0<=a) cout<<"Trung Binh";
else if (3.5<=a) cout<<"Yeu";
else cout<<"Kem";
return 0;
}
mk trân thành cảm ơn ạ!
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
Trúc chó : Đúng nhé.
Bài 2:
Program hotrotinhoc;
var i: byte;
begin
write('5 so tu nhien dau tien la : ');
for i:=0 to 4 do write(i,' ');
readln
end.
Bài 3:
Program hotrotinhoc;
var n,i: integer;
s: real;
begin
write('N='); readln(n);
i:=0;
while i<n do
begin
inc(i);
s:=s+1/i;
end;
write('S=',s:1:2);
readln
end.
Bài 1:
a)
Thuật toán 1:
- Bài toán thực hiện 3 vòng lặp
- Kết thúc vòng lặp giá trị S là 4
b)
Thuật toán 2:
- Bài toán thực hiện 0 vòng lặp
- Kết thúc vòng lặp giá trị S là 10
Bài thực hành số 6:
uses crt;
var n,t,k:integer;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
while n<>0 do
begin
k:=n mod 10;
n:=n div 10;
t:=t+k;
end;
writeln(t);
readln;
end.
BÀI THỰC HÀNH 6:
var n,i,t: integer;
begin
write('N='); readln(n);
write('Tong cac chu so cua N la : ');
while n<>0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
write(t);
readln
end.
Cảm ơn cô ạ!
Cảm ơn ạ!
Em cảm ơn cô ạ!
Em cảm ơn cô nhìu ạ!
Cô ơi chỗ readln ko có; là đúng ko v ạ?