84=1010100 двоичная
84=124 восмеричная
84=54 шеснадцатиричная
<h3>Программы будущего</h3><h3 />
В 21-м веке программы стали неотъемлемой частью почти всех людей в мире. В мире насчитывается более миллиарда программ и каждый имеет возможность найти подходящую для него.
Но часто ли Вы задумываетесь какие программы будут в будущем? Какое предназначение они будут нести? На этот вопрос я постараюсь ответить. Что мы знаем о программах: они полезны, быстры, упрощают нам жизнь. Следовательно в будущем они будут быстрее и практичнее. Скорее всего в будущем каждая программа будет обладать искусственным интеллектом, который будет выполнять различные функции. И это позволит в разы ускорить взаимодействие человека с программой. Одна программа будет заменять сотню предыдущих, будет выполнять бытовые и не только работы. Например, допустим будет существовать программа от русских разработчиков "Сделаю ВСЕ", которая будет вам заводить будильник, отсылать машину на мойку, заправлять машину, поливать цветы, сообщать о погоде и о интересующих вас новостях. Каждый день мы шаг за шагом стремимся к этому промежутку времени, когда одна программа сможет облегчить нам жизнь в сотню раз.
Я считаю, что в будущем нас ждут прекрасные программы. Возможно, даже появятся такие программы, которые будут писать домашку за простых смертных. И это время будут по-истине удивительным и прекрасным!
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
Ответ:1.надо взять сундук который висит на дубу,
2.там будет заяц,убить зайца,
3.в зайце будет утка,убить её,
4.в утке яйцо,надо его разбить,
5.в яйце игла,смерть Кощея,
6.убить Кощея этой иглой
Объяснение:
