2 язык программирования (как правило, для начинающих изучать программирование).4 буквы 4.) жаргонное название результата обработки изображения на устройстве ввода информации в компьютер.4 буквы 5.) число в системе условныхобозначений символов.3 буквы 7.) разновидность носителя информации. 4 буквы 9). название клавиши. 6 букв 10). ввоз товаров из-за рубежа, а также вставка в документ приложений windows объектов из других приложений. 6 букв 11). частьэкрана, занимаемая приложением или документом windows.4 буквы 12). … данных.4 буквы 15). синоним слова "дорожка" (названия участка магнитного диска).4 буквы 17). конечное число точек на плоскости, соединенных отрезками кривых линий.4буквы 18). устройство для соединения двух участков локальной сети.4 буквы 20). элемент языка разметки гипертекста.3 буквы
Ответы
Var max,min,i,x: integer; m: array[10..20] of integer; begin min: =10; max: =10; randomize; for i: =10 to 20 do m[i]: =random(10)+10; for i: =10 to 20 do write(m[i],' '); writeln; for i: =10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]: =m[i]+1; end; for i: =10 to 20 do write(m[i],' '); writeln; end. 2) var max,min,i,x: integer; m: array[10..20] of integer; begin min: =10; max: =10; randomize; for i: =10 to 20 do m[i]: =random(10)+10; for i: =10 to 20 do write(m[i],' '); writeln; for i: =10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]: =0 else m[i]: =m[i]*3; end; for i: =10 to 20 do write(m[i],' '); writeln; end.
Var i,n : longint; c : array [1..100] of char; begin readln(n); for i: =1 to n do readln(c[i]); for i: =1 to n do if (c[i]< > '1') and (c[i]< > '2') and (c[i]< > '3') and (c[i]< > '4') and (c[i]< > '5') and (c[i]< > '6') and (c[i]< > '7') and (c[i]< > '8') and (c[i]< > '9') and (c[i]< > '0') then writeln(c[i]); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
7 - диск, винт, сиди
9 пробел
10 импорт
11 окно
12ввод
15 стэк ?
16граф
18свич
20тэг