//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.
<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
#include <iostream>
bool isSelfDivisible(int n) {
int k = n;
while (k > 0) {
if (k % 10 == 0 || n % (k % 10) != 0)
return false;
k /= 10;
}
return true;
}
int main() {
int L, K;
std::cin >> L >> K;
for (int i = L; i <= K; i++)
if (isSelfDivisible(i))
std::cout << i << std::endl;
return 0;
}
Пример ввода:
122 128
Пример вывода:
122
124
126
128
Винчестер - сленговое название устройства для записи и считывания на жёстких дисках
1.Текстовые данные
2.Графические данные
3.Звуковые данные
4.Мультимедийные данные