М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
stebone
stebone
08.04.2020 14:12 •  Информатика

Написать программу(паскаль). с пояснениями, желательно. нужно с for. найти сумму всех n-значных чисел, кратных k.(1 < (или равно) n< (или равно)4).

👇
Ответ:
Dovids
Dovids
08.04.2020

program sada;

var k,n,res,i:integer;

     temp:string;

begin

res:=0;

readln(k);

temp:='';

for i:=1 to n do

temp:=temp+'9';

n:=strtoint(temp);

for i:=1 to n do begin

if (i mod k = 0) then res:=res+i;

end;

writeln(res);

end.

 

 

p.s. Программа написана на pascalABC

4,7(55 оценок)
Ответ:
Danil185071
Danil185071
08.04.2020

var

  k, n, Summ, i, max, min:integer;

begin

  write('n = '); readln(n);

  write('k = '); readln(k);

  max := 9;

  min := 1;

  for i := 2 to n do

  begin

    max := max * 10 + 9;

    min := min * 10;

  end;

  for i := min to max do

    if i mod k = 0 then

      Summ := Summ + i;

  writeln('Сумма = ', Summ);

end.

4,5(4 оценок)
Открыть все ответы
Ответ:
366023
366023
08.04.2020

информатика-это наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений

информа́ция — сведения независимо от формы их представления.

свойства информации

1)ценность

максимально возможная польза для достижения цели

2)актуальность

соответствие текущему моменту времени

3)достоверность

истинность представлений об источнике информации

4)доступность (понятность)

способность потребителя к восприятию информации

5)объективность

отображение внешнего мира независимо от наблюдателя

6)полнота

степень подробностей представлений об объекте

процессы информации

1)передача информации

процесс перемещения данных от одного пункта (источника) к другому (приемника)

2)хранение информации

действия с целью защиты найденной информации от потери, повреждения, разрушения

3)обработка информации

совокупность целенаправленных действий с полученной информацией для получения новой информации

этапы эвм

первое поколение

элементная база эвм первого поколения (конец 40-х — середина 50-х) — электронные схемы, построенные с использованием радиоламп. пример эвм первого поколения — бэсм-1(1950г.) — содержала около 7000 радиоламп, выполняла около 8000 арифметических и логических операций в секунду. , решаемые этой машиной: эксперименты по переводу научно-технических текстов с на язык, шахматные . бэсм-1 занимала большой зал, где требовалась вентиляция, стабильные источники питания, смена ламп. примеры других эвм первого поколения: цвм стрела, минск-1, м-20 и др.

  второе поколение

основа элементной базы эвм второго поколения (сер. 50-х — 70-х гг.) — элементы (, диоды). приборы позволили резко увеличить скорость выполнения операций, и быстродействие достигло нескольких миллионов операций в секунду. в эвм второго поколения использовались зу с объемом памяти на сотни тысяч машинных слов. эвм второго поколения: бэсм-2, бэсм-3, бэсм-3м, машины серии урал, мир, наири и др.

третье поколение

третье поколение эвм связывают с использованием интегральных схем (ис) среднего уровня интеграции. на одном кристалле реализуются достаточно сложные логические функции, и из них собираются сложные узлы машин. примеры эвм третьего поколения: ibm — 360, урал-12, урал-13, урал-14. самые большие семейства машин третьего поколения — это ес эвм (единой серии). быстродействие этих машин: сотни тысяч операций в секунду, объем памяти — сотни тысяч машинных слов.

4,8(61 оценок)
Ответ:
amalia110
amalia110
08.04.2020
Program Test;

Var
a1, a2, d, k, max, tmp: integer;
sum: real;
rule: boolean;

Begin

Writeln('Введите а1 и а2');
Readl(a1, a2);

k := 2;
d := a2 - a1;
rule := true;

while (rule = true) do
begin
k := k + 1;
tmp := a1 + k * d;

if (tmp < 50) then
max := tmp

else
rule := false;

end;

sum := (a1 + max) / 2 * k;

Writeln();
Writeln('Сумма = ', sum);

End.


Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)
4,4(42 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ