Pascal ABC, без repeat, если можно.

Знания

Информатика

2 ответа:

Алекс8977 [17]4 года назад

0 0

Var a,min:integer;
begin
writeln('Вводите числа пока вам не надоест(чтобы ост нажмите 0): ');
write('Введите первое число: ');
readln(a);
while a<>0 do
begin
write('Введите число последовательности: ');
readln(a);
if min>a then if a mod 3=0 then min:=a;
end;
write('Минимальное число кратное 3: ',min);
end.

Аделаида Гольденберг4 года назад

0 0

Var a,min:integer;
begin
write('a = ');
readln(a);
min:=30000;
while a<>0 do
begin
if (a mod 3=0)and(a<min) then min:=a;
write('a = ');
readln(a);
end;
write('min = ',min);
end.

Пример:
a = 20
a = 45
a = 64
a = 15
a = 80
a = 71
a = 0
min = 15

Читайте также

Помогите, пожалуйста, с задачей. Сформировать массив А с помощью датчика случайных чисел целыми числами из интервала [-43, 32].

ecoavto1951

Const
nn = 50;

var
a: array[1..nn] of integer;
b: array[1..10] of integer; { для номеров минимальных четных }
n, i, km, min, max, t1, t2: integer;

begin
Randomize;
Write('Укажите количество элементов массива (не более 50): ');
Readln(n);
Writeln('Исходный массив');
for i := 1 to n do
begin
 a[i] := Random(76) - 43;
 Write(a[i]:4);
end;
Writeln;
Writeln('1. Массив со сдвинутыми влево на 2 элементами');
t1 := a[1]; t2 := a[2];
for i := 1 to n - 2 do
begin
 a[i] := a[i + 2];
 Write(a[i]:4);
end;
a[n - 1] := t1; a[n] := t2;
Writeln(a[n - 1]:4, a[n]:4);
Writeln('2. Минимальные четные элементы массива');
min := 100;
for i := 1 to n do
 if (i mod 2 = 0) then
 if min > a[i] then begin min := a[i]; km := 1; b[km] := i end
 else if min = a[i] then begin km := km + 1; b[km] := i end;
Write('Значение: ', min, ', индексы:');
for i := 1 to km do Write(b[i]:3);
Writeln;
Writeln('3. Поменять местами максимальный и последний элементы массива');
max := -100;
for i := 1 to n do
 if max < a[i] then begin max := a[i]; b[1] := i end;
t1 := a[b[1]]; a[b[1]] := a[n]; a[n] := t1;
for i := 1 to n do Write(a[i]:4);
Writeln;
Writeln('4. Найти среднее арифметическое элементов массива');
t1 := 0;
for i := 1 to n do t1 := t1 + a[i];
Writeln('Среднее арифметическое равно ', t1 / n)
end.

Тестовое решение:
Укажите количество элементов массива (не более 50): 30
Исходный массив
31 -41 -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9
1. Массив со сдвинутыми влево на 2 элементами
-18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 31 -41
2. Минимальные четные элементы массива
Значение: -43, индексы: 10 24
3. Поменять местами максимальный и последний элементы массива
-18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 -41 31
4. Найти среднее арифметическое элементов массива
Среднее арифметическое равно -5.4

0 0

1 год назад

Какие элементы являются основными элементами для базовой модели взаимодействия открытых систем?

1970

Базовая эталонная модель OSI является концептуальной основой, определяющей характеристики и средства открытых систем. Она определяет взаимодействие открытых систем, обеспечивающее работу в одной сети систем, вьшускаемых различными производителями, и координирует:• взаимодействие прикладных процессов;• формы представления данных;• единообразное хранение данных;• управление сетевыми ресурсами;• безопасность данных и защиту информации;• диагностику программ и технических средств.

0 0

4 года назад

Программисты ! Выручайте !!Паскаль!! Разработать программу ввода данных. Количество элементов заранее неизвестно. Вводится после

Astorial [119]

begin

ReadSeqIntegerWhile(p -> Abs(p).InRange(10,99)).Average.Println

end.

0 0

3 года назад

Помогите пожалуйста составить пример работы алгоритма в виде бок-схемы?Касса. В одномерном массиве в порядке убывания представле

САН4Е3 [18]

Var
 n, s, i: integer;
 x: array[1..100]of integer;

begin
 writeln('ВВедите кол-во купюр, их значения и необходимую сумму');
 readln(n);
 for i := 1 to n do
 read(x[i]);
 readln(s);

 for i := n downto 1 do
 begin
 if s div x[i] > 0 then
 write(s div x[i], '*', x[i], ' ');
 s := s mod x[i];
 end;

 if s <> 0 then
 writeln('NO')
end.

0 0

4 года назад

Как записываются операторы ввода и вывода в паскале

valentinkaya

Если хочешь вывести текст
write('текст'); //Ковычки одинарные
если ты хочешь вывести переменную то без кавычек
a := 1;
write(a);
Также можешь добавить в конец "ln" т.е. writeln(...); после того как выведет он перенесет на следующую строку

Оператор ввода:
Read(переменная); read(a); read(b);
Также и тут можешь перенести строку:
Readln(...);

0 0

4 года назад