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.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.

17 tháng 12 2022

b) 

#include <iostream>
using namespace std;
int a;
int main(){
    cin>>a;
    if (a%2==0) cout<<a<<" la so chan";
    else cout<<a<< "la so le";
    return 0;
}

30 tháng 12 2022

Input: a,b

Output: max,min của hai số a,b

25 tháng 12 2020

a) Xác định bài toán

-Input: Số nguyên a

-Output: Kiểm tra xem a có là bội của 5 không?

b) Viết chương trình

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a mod 5=0 then writeln('a=',a,' la boi so cua 5')

else writeln('a=',a,' khong la boi cua 5');

readln;

end.

lên mạng đi bạn 

làm Pascal khó lắm

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do  

  s:=s+i;

writeln(s);

readln;

end.

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

Bài 1:

Input: Số n

Output: Kiểm tra xem n có chia hết cho 5 ko

Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: Nếu n chia hết cho 5 thì xuất ra có

không thì không

Bước 3: Kết thúc

Viết ct:

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 5=0 then write('yes')

else write('no');

readln;

end.

9 tháng 11 2016

1.uses crt;

var n,gt:longint;

begin

clrscr;

repeat

write('nhap so n:');readln(n);

until n>0;

gt:=1;

while n>0 do

begin

gt:=gt*n;

n:=n-1;

end;

writeln('giai thua cua n la:',gt);

readln

end.

2. uses crt;

var a,b,c:real;

begin

clrscr;

write('nhap a=');readln(a);

write('nhap b=');readln(b);

write('nhap c=');readln(c);

if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');

readln

end.

 

23 tháng 11 2016

Cái chỗ chữ " repeat " cần thêm chữ " begin " nữa !

#include <bits/stdc++.h>
using namespace std;
long long n,m;
//chuongtrinhcon
long long tcs(long long n)
{
    long long t=0;
    for (i=1; i<=n-1; i++)
        if (n%i==0) t=t+i;
    return(t);
}
//chuongtrinhchinh
int main()
{
    cin>>n>>m;
    if ((tcs(n)==m) and (tcs(m)==n)) cout<<"Yes";
    else cout<<"No";
}