i,ans:longint;
begin
ans:=0;
for i:=1 to 1000 do
begin
if (i mod 10=3)or(i mod 10=4) then ans:=ans+i;
if ((i mod 100)div 10=3)or((i mod 100)div 10=4) then ans:=ans+i;
if ((i mod 1000)div 100=3)or((i mod 1000)div 100=4) then ans:=ans+i;
end;
writen(ans);
end.
by myself
需要解释的话追问
可能需要编译一下，我是直接在这里打的
Free pascal练习题大全
1、倒油问题：看懂，并完成程序。有10升油在10的容器中，另有两个7升和3升的空容器，现要求用这三个容器倒油，使得最后在10升和7升的容器中各有5升。2、书本的P.250-251页的迷宫问题：看懂，完成程序并调试 3、细胞问题：一矩形阵列由数字0到9组成，数字1到9代表细胞，细胞的定义为细胞数字...
free pascal
习题5.1 1.裴波那契数列：数列1、1、2、3、5、8、13、21…称为裴波那契数列，它的特点是：数列的第一项是1，第二项也是1，从第三项起，每项等于前两项之和。编程输入一个正整数N，求出数列的第N项是多少？（N不超过30）。program Project1;VAR a:array[1..30] of longint;{建立一...
free pascal习题
题1：问题描述:今年是国际数学联盟确定的“2000——世界数学年”，又恰逢我国著名数学家华罗庚先生诞辰90周年。在华罗庚先生的家乡江苏金坛，组织了一场别开生面的数学智力竞赛的活动，你的一个好朋友XZ也有幸得以参加。活动中，主持人给所有参加活动的选手出了这样一道题目:设有一个长度N的数字串，要求...
还是free Pascal←【泪眼汪汪の——飘过~~~
前面那题，case有三种用法，一种就是你写的，另外两种是这样 case n of 8,10,5:dosomething;20..200:dosomething;else dosomething;end;看一下第一题，实际是将K划分成了3-5，6-7，8-10三个区间来输出结果，所以你可以用上面case后面那种..来表示位于两数之间。后面那题相对就简单一些，用if...
FreePascal同步训练内容简介
作为Pascal（小学版）和（中学版）的同步训练教材，《FreePascal同步训练》涵盖了计算机基础知识、FreePascal语言基础、程序设计入门、选择结构、循环结构、数组、函数与过程、文件、指针和算法等内容。教材还提供了A、B两级习题，帮助读者熟练掌握编写程序的方法和技巧。本书结构严谨，语言简练，非常适合作为...
FreePascal同步训练编辑推荐
《FreePascal同步训练》作为青少年信息学竞赛培训教材，与《Pascal语言（小学版）》及《Pascal语言（中学版）》配套使用，充分考虑到中小学生的心理和认知特点，内容紧密贴合信息学竞赛大纲。每一章节都设有A、B两级习题，并附有详细的参考答案。本书总共包括11章内容，内容全面而深入，包括计算机基础知识、...
...都上过提高班了)的,很多都是典型例题的free pascal习题
青少年信息学奥林匹克竞赛培训教材：Free Pascal同步训练 估计只有这本了。
free pascal 语言编程
Pascal程序:Program Exam12;Var a: byte;Begin for a:=1 to 20 do Writeln (a); ReadlnEnd.程序中 for a:=1 to 20 do Writeln (a);是for循环语句。for 循环语句有两种格式:(1) for 循环变量:=初值 To 终值 do 语句; (2) for 循环变量:=初值 downto 终值 do 语句;第(1)种格式的初值小于...
FreePascal语言与基础算法基础内容简介
《全国青少年信息学奥林匹克竞赛教程?Free Pascal语言与基础算法基础(第3版)》是一本专注于实操教学的书籍，它以提升实用性为核心，旨在帮助学习者快速掌握Pascal语言。书中摒弃了繁杂的语法规则，通过实例解析语言概念、组成和使用方法，将抽象知识融入实际操作，降低初学者的入门难度，激发他们对编程的兴趣...
Free pascal练习题大全
1、倒油问题：看懂，并完成程序。有10升油在10的容器中，另有两个7升和3升的空容器，现要求用这三个容器倒油，使得最后在10升和7升的容器中各有5升。2、书本的P.250-251页的迷宫问题：看懂，完成程序并调试 3、细胞问题：一矩形阵列由数字0到9组成，数字1到9代表细胞，细胞的定义为细胞数字...
