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,t:integer;

begin

clrscr;

t:=0;

repeat

readln(a);

t:=t+a;

until a=0;

writeln(t);

readln;

end.

21 tháng 7 2022

Program HOC24;

var a,b,c,d: integer;

t: longint;

begin

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

write('Nhap b: '); readln(b);

write('Nhap c: '); readln(c);

write('Nhap d: '); readln(d);

t:=a+b+c+d;

writeln('Chu so hang don vi cua tong do la: ',t mod 10);

t:=t div 10;

write('Chu so hang chuc cua tong do la: ',t mod 10);

readln

end.

22 tháng 7 2022

merge collums.

3 tháng 8 2022

merge collums

#include <bits/stdc++.h>

using namespace std;

long long n,gt;

int main()

{

cin>>n;

gt=1;

for (int i=1; i<=n; i++) gt*=i;

cout<<gt;

return 0;

}

19 tháng 7 2022

Viết bằng Pascal:

Var n,i gt:longint;

Begin

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

gt:=1;

For i:=1 to n do gt:=gt*i;

Write(n,'! = ',gt);

Readln;

End.