X=4
2002=2*4^(3)+2*4^(0)=130
устройства ввода
2 группы на которые делятся
устройства вывода
какие бывают клавиатуры
основные характеристики принтера
струйные принтеры
1 PascalВыделить код
2uses crt;
3var a,b,x,y,z:integer;
4begin
5clrscr;
6writeln('Введите числа A,B');
7readln(a,b);
9x:=a+b;
10y:=a-b;
11z:=a*b;
12writeln(x);
13writeln(y);
14writeln(z);
15end.
1)
П0 1 ВП 3 / [x] П1 С/П П0 ИП1 1 ВП 3 * - С/П
Инструкция: граммы В/О С/П. Результат: килограммы С/П граммы.
2)
^ 1 ВП 4 / [x] С/П
Инструкция: ары С/П.
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3><h2>С массивом</h2>
begin
var a := ReadArrInteger(ReadlnInteger);
var (i, v) := a.Numerate.Where(t -> t[1].IsEven and (t[1] mod 10 = 8))
.MinBy(t -> t[1]);
i.Println
end.
<h2>С последовательностью</h2>
begin
var (n, min, i, imin) := (ReadlnInteger, integer.MaxValue, 1, 1);
var s := ReadSeqInteger(n);
foreach var t in s do
begin
if (t < min) and t.IsEven and (t mod 10 = 8) then
(min, imin) := (t, i);
Inc(i)
end;
imin.Println
end.