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:array[1..100]of integer;
i,n,t1,t2,t3:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
if (a[i] mod 2=0) and (a[i] mod 3=0) then t3:=t3+a[i];
end;
writeln(t1);
writeln(t2);
writeln(t3);
readln;
end.
Tại sao người ta phải tạo ra các ngôn ngữ lập trình trong khi có thể điểu khiển máy tính bằng ngôn ngữ máy?
Trả lời
Vì ngôn ngữ máy rất phức tạp và dài dòng ,hơn nữa lại khác với tư duy tự nhiên của con người.Vì vậy nếu sử dụng nó ,thì sẽ rất mất thời gian cho việc xây dựng chương trình,dữ liệu ....(đặc bịệt là các dự án lớn)và khiến ta không thể có nghành công nghiệp phần mềm như hiện nay .
Chúc bn hok tốt !
#include <bits/stdc++.h>
using namespace std;
string n;
int d;
int main()
{
cin>>n;
d=n.length();
cout<<d;
return 0;
}
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.