Viết chương trình pascal in ra màn hình kết quả thông tin cá nhân của học sinh. Mỗi thông trên một dòng Gợi ý: sử writeln() để in ra màn hình
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.
Những câu hỏi liên quan
22 tháng 2 2022
uses crt;
var st:array[1..10]of string;
a:array[1..10]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(st[i],a[i]);
for i:=1 to n do
writeln(st[i],' ',a[i]);
readln;
end.
MA
27 tháng 3 2021
program tinhtong;
uses crt;
var i, n, s: integer;
begin clrscr;
Write('N so tu nhien dau tien la: ');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
27 tháng 3 2021
giúp mình câu này luôn nhé
In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên
15 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t,dem;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0 && x>10) t+=x;
if (x%2!=0 || x<100) dem++;
}
cout<<t<<" "<<dem;
return 0;
}
UT
15 tháng 3 2022
Tham khảo nhen
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
KS
16 tháng 3 2022
Tham khảo
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
18 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
PL
20 tháng 12 2021
- Thuật toán chương trình:
Bước 1: Nhập một số tự nhiên n và một biến d;
Bước 2: Gán giá d=n mod 2;
Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;
Bước 4. Kết thúc thuật toán;
- Chương trình Pascal:
- Kết quả:
ML
29 tháng 4 2021
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: ');
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' '); writeln;
d:=0;
for i:=1 to n do if a[i]>0 then d:=d+1;
write('Co ',d,' so duong');
readln
end.
