Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 - Pascal ABC

  1. Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3.


textual

Код к задаче: «Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 - Pascal ABC»

program ex;
var a,b,i,sum,t:integer;
 
 
begin
write('Введите границу А: ');
readln(a);
write('Введите границу B: ');
readln(b);
if a > b then
  begin
  t:=a;
  a:=b;
  b:=t;
  end;
  writeln('Количество чисел в промежутке (включая обе границы) = ',b-a+1);
  t:=1;
for i:=a to b do
  begin
  if t mod 3 = 0 then
  sum:= i + sum;
  inc(t); 
  end;
writeln('Сумма чисел стоящих на местах кратных 3 = ',sum);
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.167 из 5



Похожие ответы
  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).

  1. Найти количество цифр, равных 0, в заданном натуральном числе.

  1. помогите написать программу на pascal ABC а) В строке удалить символ двоеточие и подсчитать количество удаленных символов. б) Выбрав любое базовое слово по своему усмотрению, составить программ, которая из базового слова получает 4 новых слов, используя операцию сцепления и команду Copy.

  1. Дан файл f, содержащий сведения о студентах: ФИО, группа, оценки за экзамены. Вывести в файл f1 и на экран сведения о студентах-хорошистах; подсчитать их количество. Использовать при решении подпрограммы. Предусмотреть проверку открытия файла.

  1. Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.

  1. Дан текст, в которой слова разделены пробелами, а в конце стоит точка. Если количество слов в тексте нечётное - вывести среднее слово; если чётное - вывести 2 средних слова.

  1. Формулируется так: Даны n символов, нужно подсчитать сколько раз в строке встречается произвольный символ(вводится с клавиатуры), через процедуру. Я написал такой код, знаю что не правильный. Не понимаю в чем ошибки, помогите исправить

  1. нужно найти количество всех элементов в нечетных по номеру строках матрицы, сделал что бы оно выводило матрицу и нечетные строки, а количество значений что то не могу. был бы рад помощи.