Найти сумму целых положительных чисел, кратных 3 и меньших 200 - Turbo Pascal

  1. Найти сумму целых положительных чисел, кратных 3 и меньших 200. Помогите пожалуйста написать программу! Времени до сдачи совсем нет, чтоб самой разобраться.


textual

Код к задаче: «Найти сумму целых положительных чисел, кратных 3 и меньших 200 - Turbo Pascal»

uses crt;
const n=199;
var i,s:integer;
 
 
BEGIN
clrscr;
 
s:=0;
 
for i:=1 to n do
 if i mod 3=0 then
  s:=s+i;
   write('Symma = ',s);
 
 readkey;
END.

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

6   голосов, оценка 4.000 из 5



Похожие ответы
  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1

  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. В прямоугольной матрице размером М*К, , имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран. Как сделать? Сижу туплю капец!

  1. Нужно считать числа из файла и присвоить эти значения переменным. например 25.1 3.5 1 2.3

  1. помогите решить задачьку в паскале Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4

  1. Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.

  1. Пусть компьютер способен выполнять только две арифметические операции - сложение и вычитание. Составить алгоритм умножения двух целых чисел.

  1. Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка. Вычислить среднее значение этих чисел? я сделал саму задачу,а вот последнее условие не смог, как его сделать?:= Вычислить среднее значение этих чисел?

  1. составить программу нахождения двузначных чисел у которых сумма кубов цифр делиться на 3