383 / 256 = 1 * 256 + 127 => итог: 1
127/ 16 = 7 * 16 + 15 => итог: 17
15 / 1 = 15 = F => итог 17F
Ответ: 17F
var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
Var
i:integer;
begin
for i:=18 downto 1 do
write(i,' ');
end.
Жил был Билл Гейтс, и основал он компанию Microsoft, в которой родилась первая операционная графическая система MS-DOS, жалкие людишки наконец смогли по нормальному пользоваться ПК, операционная система стала сама помогать людям, спрашивать их о том, какие действия нужно совершить. После вышел Windows 95, NT, 2000, XP,7,8. И людям больше нечего было делать, только в игрушки играть, но вы! Да, да вы! Моя учительница информатики не даете мне насладиться этим чудом в полной мере. Будьте вы прокляты со своим тупым заданием. Сочинить сказку про WordPad, это просто идиотизм.
Начнем. Создали в Microsoft текстовый редактор WordPad, и людишки смогли писать на экранчиках мониторчиков. И все счастливы. Конец.
Простые (или элементарные) типы могут содержать элементы только одного типа. Например, тип integer относится к простым типам, и может содержать только положительные и отрицательные целые числа. Тип string может содержать только строки.
Структурные же типы могут содержать элементы произвольных типов. Некоторые из структурных типов (классы, или объекты) могут содержать даже процедуры и функции:
type
r = record
name, surname : string;
age : integer;
end;
obj = object
model : string;
doorsCount : integer;
function doorOpen(num : integer) : boolean;
end;