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.
program SoChiaHetCho3;
var
i: Integer;
begin
writeln('Cac so chia het cho 3 trong doan tu 1 den 10 la:');
for i := 1 to 10 do
begin
if i mod 3 = 0 then
write(i, ' ');
end;
end.
a) Con gà trống cân nặng một nghìn tám trăm sáu mươi hai gam.
Con nhím cân nặng bảy trăm sáu mươi hai gam.
Con mèo cân nặng bốn nghìn tám trăm bảy mươi sáu gam.
Con thỏ cân nặng hai nghìn năm trăm tám mươi ba gam.
Đổi: 4 kg 876 g = 4876 g; 2 kg 583 g = 2583g.
So sánh: 762 g < 1862 g < 2583 g < 4876 g
Vậy con mèo cân nặng cân nhất.
b) Gia đình em năm ngoái thu hoạch được 100 000 gam thóc.
Câu 1:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
if i mod 4=0 then t:=t+i;
writeln(t);
readln;
end.
Câu 2:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 20 do
if i mod 3=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Câu 1:
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if (i%4==0) t=t+i;
cout<<t;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
int i,dem;
int main()
{
dem=0;
for (i=1; i<=20; i++)
if ((i%2==1) and (i%3==0)) dem++;
cout<<dem;
return 0;
}
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 99
Thông báo kết quả ra màn hình?
Program Tong_cac_so_tu_nhien;
Uses CRT;
Var i,d: Byte;
Begin
d:=0;
For i = 10 to 99 Do d:=d+i;
Writeln('Tong cac so tu nhien tu 10 den 99 la ',d);
End.
tự liệt kê