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.

1 tháng 11 2017

==" trình bày phải giông mẫu đó ak

còn vt để máy tính hiểu và thực hiện đc nhớ na ná trong scahs có mà

1 tháng 11 2017

Nguyễn Hải Dương câu 1 đâu có trong sách đâu tui tìm rùi mà.

còn câu 2 viết CT sao cho khi in ra màn hình có 1 danh thiếp đơn giản như mẫu đã cho ấy.

Ráng giúp mk đi, đây là đề kiểm tra 1 tiết vô cùng quan trọng ấy

25 tháng 9 2021

begin 

write ('TRUONG THCS ...');

write ('CHAO CAC BAN HOC SINH LOP 8');

readln ;

end.

 

25 tháng 9 2021

Cảm ơn bn nhiều

1 tháng 7 2023

var i, so: integer;

begin
  writeln('Nhap vao 10 so tu nhien:');
  for i := 1 to 10 do
  begin
    write('So thu ', i, ': ');
    readln(so);
    writeln('So vua nhap la: ', so);
  end;
  readln;
end.

19 tháng 2 2023

Program HOC24;

var i,n,d: integer;

begin

write('Nhap N: '); readln(n);

write('Cac uoc cua 'n,' la: ');

for i:=1 to n do if i mod n = 0 do then

begin write(i,' '); d:=d+1; end;

writeln;

write('Co ',d,' so la uoc cua ',n);

readln

end.

25 tháng 3 2022

var st:string;

i,dem:integer;

begin

write('Nhap xau ki tu: ');readln(st);

for i:=1 to length(st) do

if st[i]=' ' then dem:=dem+1;

write('so ki tu la dau cach la ',dem);

readln;

end.

23 tháng 10 2021

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1);

readln(st2);

writeln('Ten minh ',st1);

writeln('Lop ',st2);

readln;

end.

27 tháng 10 2021

cảm ơn nhìu ạ

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;

}

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:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

- Kết quả:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

14 tháng 5 2021

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

var a:array[1..100] of integer;s,i,n:integer;

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

writeln('a[',i,']=');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????