Нужно "сократить" программу (Написать без использования переменных)

@Alex47517 · Регистрация: 08.12.2017

Author24 — интернет-сервис помощи студентам

Нужно написать эту программу не используя циклов:
Кто ответит, буду ОЧЕНЬ признателен)

Pascal

program MyProg2;
Uses Crt;
var i,c:integer;
Ch:Char;
begin
 textbackground(2);
 clrscr;
 textcolor(15);
 gotoxy(20,20);
 writeln('Summa chisel ot 20 do 100 i kratnie 3');
 c:=0;
 i:=0;
 for i:=20 to 100 do
 if i mod 3=0 then c:=c+i;
 gotoxy(20,21);
 writeln(c);
 Ch:=ReadKey;
end.

@Cyborg Drone · 08.12.2017, 23:23

Почитайте что-нибудь про арифметическую прогрессию.

Без переменных и циклов, нужные значения для ясности вычисляются как константы:

Pascal

uses crt;
const nmin = 20; //начало интервала
      nmax = 100; //конец интервала
      d = 3; //разность арифметической прогрессии
      a1 = (nmin + d - 1) div d * d; //наименьшее число > 20 и кратное трём = 21
      an = nmax div d * d; //наибольшее число < 100 и кратное трём = 99
      n = (an - a1) div d + 1; //количество чисел в интервале = 27
begin
  textbackground(2);
  clrscr;
  textcolor(15);
  gotoxy(20, 20);
  writeln('Summa chisel ot ', nmin, ' do ', nmax, ' i kratnie ', d);
  gotoxy(20, 21);
  writeln((a1 + an) div 2 * n); //сумма арифметической прогрессии
  readkey
end.

Можно убрать раздел описания констант и подставить вместо a1, a2, nmin, nmax и n соответствующие числа.

Правильнее всего, кроме этого, напечатать заранее вычисленное значение:

Pascal

15	writeln(1620); //сумма арифметической прогрессии

только вот для того, чтобы это сдать, нужно быть умным и уверенным в себе.

	08.12.2017, 23:23