Программа в паскаль. напишите программу, которая последовательности натуральных чисел определяет количество чисел, оканчивающихся на 6. программа получает на вход количество чисел последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 6. введенные числа не превышают 30 000.программа должна вывести одно число-количество чисел, оканчивающихся на 6.

👇

Ответ:

fackaF39

13.05.2021

Var k,i,n,a:integer;
begin
read(n);
while i<n do begin
read(a);
if (a mod 10=6) then k:=k+1; i:=i+1;
end;
writeln('Чисел, оканчивающихся на 6: ', k);
end.

4,8(13 оценок)

Открыть все ответы

Ответ:

саша4246

13.05.2021

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

Сетевой адаптер - сопряжение компьютера с сетью, то есть обеспечение обмена информацией между компьютером и каналом связи в соответствии с принятыми правилами обмена.

Процессор - управлять работой ЭВМ по заданной программе и выполнять операции обработки информации.

Жёсткий диск - долговременное хранение информации в компьютере.

Видеоадаптер - формирование изображения на экране монитора под управлением программы компьютера.

Звуковой адаптер - позволяет обрабатывать звук (выводить на акустические системы и/или записывать).

4,8(66 оценок)

Ответ:

марина1924

13.05.2021

Первая программа предназначена ТОЛЬКО для Pascal.ABC, в другой среде она работать не будет. Она самая короткая и простая. Метод Split разбивает исходную строку на слова по символу пробела и формирует динамический массив. Что бы мы ни вводили, мы всегда будем получать в результате то, что требовалось. (понятно, что если слов будет меньше трех, будем получать то, что ввели).

var
s: string;
ms: array of string;

begin
Write('Введите три слова через пробел: ');
Readln(s);
ms := s.Split(' ');
Writeln(ms[0] + ' ' + ms[2] + ' ' + ms[1])
end.

Вторая программа реализуется в любой версии Pascal. Её недостаток в том, что она правильно работает только тогда, когда введена фраза из трех слов, разделенных пробелом. Это простейший линейный алгоритм.

var
s, s1, s2, s3: string;
n, p: integer;

begin
Write('Введите три слова через пробел: ');
Readln(s);
n := Length(s);
p := Pos(' ', s);
s1 := Copy(s, 1, p - 1);
s3 := Copy(s, p + 1, n - p);
p := Pos(' ', s3);
s2 := Copy(s3, 1, p - 1);
n := Length(s3);
s3 := Copy(s3, p + 1, n - p);
Writeln(s1 + ' ' + s3 + ' ' + s2)
end.

Третья программа также реализуема в любой версии Pascal и содержит "классический" работы со строкой, состоящий в последовательном анализе каждого символа. Имеет защиту на случай, если слов будет больше или меньше трех.

var
s: string;
ms: array[1..3] of string;
i, n, p, j: integer;

begin
Write('Введите три слова через пробел: ');
Readln(s);
{
Алгоритм: Просматриваем все символы строки начиная с позиции p
и при обнаружении пробела в позиции q заносим в массив очередное слово,
копируя q-p символов, начиная с p. Затем заносим в p значение q+1
и продолжаем просмотр. При старте принимаем p=1
}
p := 1; j := 0; n := Length(s);
for i := 1 to n do
    if s[i] = ' ' then
    begin
      j := j + 1;
      if j <= 3 then begin{ если введено больше двух пробелов }
        ms[j] := Copy(s, p, i - p);
        p := i + 1
      end
    end;
if j < 3 then ms[3] := Copy(s, p, n - p + 1);
Writeln(ms[1] + ' ' + ms[3] + ' ' + ms[2])
end.

Все три программы опробованы и результаты их работы одинаковы:

Введите три слова через пробел: Зебра полосатая лошадь
Зебра лошадь полосатая

4,5(35 оценок)

Это интересно:

Здоровье

07.09.2021

Как правильно пройти тест на наркотики в домашних условиях?...

Компьютеры-и-электроника

21.07.2021

Как установить сетевой принтер: подробная инструкция...

Образование-и-коммуникации

01.05.2021

Как освоиться в новой школе...

Транспорт