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.

28 tháng 4 2017

1/

Program tinh_tong;
Var i, S: Integer;
Begin
i:= 100;
S: = 0;
While i <=1000 do
S:= S + i;
i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln;
End.

3 tháng 5 2018

2/

Uses crt;

var a: array [1..100] of integer;

n, i, s: integer;

tb: real;

begin

clrscr;

write ('Nhap so luong phan tu: ');

readln (n);

for i:= 1 to n do readln (a[i]);

s:=s+a[i];

tb:=s/n;

writeln ('Gia tri trung binh cong cua mang la ',tb);

write ('Cac phan tu nho hon gia tri trung binh cong: ');

for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln

end.

1/

16 tháng 3 2017

var a,b,c,n:integer;

begin

readln(n,a,b,c);

if (a=b) or (b=c) or (a=c) then

writeln('can') else writeln('khong can');

end.

16 tháng 3 2017

sai kìa -_-, nếu nói như bạn, tam giác cứ 2 cạnh = nhau thì cân à -_-

2 tháng 5 2017

uses crt;

var s,t:string;

n,i,j,z,k,l:longint;

a:array[1..100] of string;

begin

clrscr;

write('nhap xau:');readln(s);

z:=1; j:=0;

s:=s+' ';

for i:=1 to length(s) do

if (s[i]=' ') and (s[i-1]<>' ') then

begin

j:=j+1;

a[j]:='';

for k:=z to i-1 do

begin

a[j]:=a[j]+s[k];

end;

z:=i+1;

end;

for i:=1 to j-1 do

for k:=i+1 to j do

if length(a[i])>length(a[k]) then

begin

t:=a[i];

a[i]:=a[k];

a[k]:=t;

end;

s:='';

for i:=1 to j do

s:=s+' '+a[i];

writeln('xau da sap xep tu tang dan la:');

write(s);

readln;

end.

22 tháng 3 2017

C1: Cấu trúc:
Cú pháp lệnh:
FOR := TO DO ;
Trong đó:
+ FOR, TO, DO: là từ khóa.
+ Biến đếm: thuộc kiểu dữ liệu số nguyên.
+ Giá trị đầu, giá trị cuối: là giá trị nguyên.
+ Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.

Hoạt động: Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.

C2: Cấu trúc:

Cú pháp : while ( điều kiện) các lệnh cần lặp;
Cách thực hiện: Kiểm tra điều kiện, nếu đúng (!=0) thì thực hiện các lệnh. Cho đến khi nào điều kiện sai (=0) thoát khỏi while
Ví dụ: Viết chương trình in ra chữ lap trinh C 10 lần.
Hoạt động:
  • Bước 1: Máy thực hiện câu lệnh 1.
  • Bước 2: Sau đó tính giá trị của biểu thức 1 , nếu giá trị của biểu thức 1 sai thì ch ương tr ình thoát ra khỏi vòng lặp. Nếu giá trị của biểu thức 1 đúng thì quay lại b ước 1.
25 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int a,b;

int main()

{

cin>>a>>b;

cout<<(a/b)+(a%b);

return 0;

}