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.

6 tháng 1 2022

var
s,i: integer;
begin
s:=0;
for i:=20 to 50 do
begin
if i mod 2 = 0 then 
s:=s+i;
end;
write(s)
end.

22 tháng 10 2017

Input: số phần tử của dãy A, dãy a1,a2...an.

Output:số phần tử chẵn, lẻ.

thuật toán:

B1: demchan <--0; demle <--0; i<--1;

B2: nếu a[i] mod 2=0 then demchan <-- demchan+1. ngược lại demle <--demle+1;

B3: i <--i+1;

B4: nếu i<=n thì quay lại bước 2;

B5: thông báo giá trị demchan và demle và kết thúc thuật toán.

chúc bạn học tốtbanh

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

for (i=100; i<=200; i++)

if (i%2==0) t=t+i;

cout<<t;

return 0;

}

20 tháng 4 2020

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

- Máy thực hiện gồm vô hạn vòng lặp

- Khi kết thúc vòng lặp giá trị của S không xác định

- Chương trình :

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<=10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

6 tháng 1 2021

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10

-kết thúc,s=10

chương trình:

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

3 tháng 1 2022

- Bài này mình viết ở ngôn ngữ C++

- Chương trình :

#include<iostream> 

using namespace std; 

int main() { 

int g = 0; 

for (int i = 100; i <= 1000; i++) {

if (i % 2 == 0) { 

g += i;

 } 

}

cout << g; 

return 0; 

}

7 tháng 3 2021

uses crt;

var n,i,x:integer;

begin

writeln('Nhap so: ');readln(n);

For i:=1 to 9 do writeln(n,'x',i,'=',n*i);

readln

end.

18 tháng 10 2016

câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

 

18 tháng 10 2016

? đây là toán mà

16 tháng 1 2019

Bước 1:Nhập n.Gán i=1,A:=0;

Bước 2:A=1

i(i+2)

Bước 3:i:=i+1

Bước 4:In ra A

Bước 5:Kết thúc vòng lặp.

2 tháng 1 2020

Bài Làm:

Bước 1:Nhập n.Gán i=1,A:=0;

Bước 2:A=1 và i(i+2)

Bước 3:i:=i+1

Bước 4:In ra A

Bước 5:Kết thúc vòng lặp.

31 tháng 12 2020

Bn xem đúng k nhé:

Bước 1: MAX =60 I=1Bước 2: nếu MAX >I thì I:= I+1 , ngược lại kết thúc chương trìnhBước 3: nếu MAX > I kết thúc chương trìnhINPUT: 60 số tự nhiên đầu tiênOUTPUT: tính tổng

Chúc bn hok tốt~~

31 tháng 12 2020

E cần nêu rõ phép chia nhé. Đồng thời em cần fix bước 4 để khoa học hơn