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.

#include <bits/stdc++.h>

using namespace std;

long long i,t,dem;

int main()

{

dem=0;

t=0;

for (i=0; i<=10000; i++)

if (i%12==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}

20 tháng 12 2021

(3+2) div 6 -4 = 5 div 6 -4 = 0-4=-4

Câu 1: 

uses crt;

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

i,n,t,s:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

s:=1;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

inc(dem);

t:=t+a[i];

s:=s*a[i];

end;

if dem=0 then writeln('Khong co so chia het cho 3 trong day')

else begin

writeln('Tong cac so chia het cho 3 la: ',t);

writeln('Tich cac so chia het cho 3 la: ',s);

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

15 tháng 3 2021

Program HOC24;

var t: longint;

n,i: integer;

begin

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

t:=1;

for i:=1 to n do t:=t*i;

write(n,'! =',t);

readln

end.

7 tháng 8 2021

Win mấy vậy?

7 tháng 8 2021

Win 10 bạn 

17 tháng 3 2023

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=25 to 50 do if (i mod 5=0) and (i mod 2=1) then t:=t+i;

write('Tong la: ',t);

readln

end.

13 tháng 11 2021

Cái đó là vị trí hàng trong Pascal

program doixung;

var

    str, reverseStr: string;

    i, count, maxWordLength: integer;

    words: array of string;

begin

    write('Nhập vào một xâu kí tự: ');

    readln(str);

    reverseStr := '';

    for i := length(str) downto 1 do

        reverseStr := reverseStr + str[i];

    if str = reverseStr then

        writeln('Xâu là đối xứng')

    else

    begin

        writeln('Xâu không đối xứng');

        writeln('Xâu đảo ngược: ', reverseStr);

    end;

    count := 0;

    maxWordLength := 0;

    SetLength(words, 0);

    while Length(str) > 0 do

    begin

        i := Pos(' ', str);

        if i = 0 then

            i := Length(str) + 1;

        if i - 1 > maxWordLength then

            maxWordLength := i - 1;

        SetLength(words, Length(words) + 1);

        words[Length(words) - 1] := Copy(str, 1, i - 1);

        Delete(str, 1, i);

        Inc(count);

    end;

    writeln('Số từ trong xâu: ', count);

    writeln('Từ dài nhất: ', maxWordLength);

end.