50 БАЛЛОВ! Pascal. ИЗ слова ДОСТОПРИМЕЧАТЕЛЬНОСТЬ с помощью команды:
length, copy, delete, insert, concat вывести на экран 8 слов и чтобы каждое слово состояло минимум из 6 букв. СЛОВА, КАКИЕ НУЖНО ВЫВЕСТИ: ПРИМЕТА, РАДОСТЬ, ЧИТАТЕЛЬ, МЕЧТАТЕЛЬ, ПРИМАТ, ТЕТРАДЬ, ПРИМЕР, СЧАСТЬЕ
<span>Определите,какие из перечисленных моделей материальные,а какие информационные. Укажите номера материальных моделей. 1) Макет декорационного оформления театральной постановки. 3) Географический атлас. 4) Объёмная модель молекулы воды. 6) Макет скелета человека. 9) Игрушечный паровоз.</span>
Const n=10; {Можно подставить любое число} var a:array[1..n] of integer; i,s:integer; begin randomize; for i:=1 to n do begin a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9} write(a[i],' '); end; writeln; s:=0; for i:=1 to n do if (i mod 2)=0 then s:=s+a[i]; writeln(s); end.
var chastnoe,cifra,x,y:integer; begin y:=237; cifra:=(y div 100);//получаем первую цифру числа 237 chastnoe:=(y mod 100);//находим число получившееся после деления x:=chastnoe*10+cifra;//находим число Х writeln(x);//выводим end.