Hãy viết chương trình tính tổng
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.

7 tháng 3 2021

uses crt;

var n,i,x:integer;

begin

writeln('Nhap so: ');readln(n);

For i:=1 to 9 do writeln(n,'x',i,'=',n*i);

readln

end.

Bài 1 Viết chương trinh tính tổng hiệu tích thương của hai số a và b được nhập vào từ bàn phím                                                                    Bài 2 Viết chương trinh tính chu vi và diện tích của hình tròn với bán kính được nhập vào từ bàn phím                                                            Bài 3 Viết chương trinh tính...
Đọc tiếp

Bài 1 Viết chương trinh tính tổng hiệu tích thương của hai số a và b được nhập vào từ bàn phím                                                                    Bài 2 Viết chương trinh tính chu vi và diện tích của hình tròn với bán kính được nhập vào từ bàn phím                                                            Bài 3 Viết chương trinh tính chu vi và diện tích của hình chữ nhật với các cạnh được nhập vào từ bàn phím                                                  Bài 4 Viết chương trinh tính chu vi và diện tích của hình vuông với các cạnh được nhập vào từ bàn phím                                                      Bài 5 Viết chương trinh tính chu vi và diện tích của hình tam giác với cạnh và chiều cao được nhập vào t bàn phím 

0
4 tháng 5 2023

program TinhTongTich;

var

      N, i, Tong, Tich:integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      i:=1;

      Tong:=0;

      Tich:=1;

      while i<=N do

      begin

            Tong:=Tong+i;

            Tich:=Tich*i;

            i:=i+1;

      end;

      writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

      writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

      readln;

end.

24 tháng 1 2022

dễ mà tự làm đi!

2 tháng 5 2021

Mình chỉ viết được pascal được không?

15 tháng 5 2021

uses crt;

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

begin

write('nhap do dai day');readln(n);

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

if a[i] mod 2= 0 then write('so duong ', a[i],' ');end;

readln

end.