<em>var</em>
<em> a, b, c : integer;</em>
<em> </em>
<em>begin</em>
<em> write('введите a ');</em>
<em> readln(a);</em>
<em> write('введите b ');</em>
<em> readln(b);</em>
<em> write('введите c ');</em>
<em> readln(c);</em>
<em> writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));</em>
<em>end.</em>
протестировано в PascalABC.Net
program <em>НАЗВАНИЕ ПРОГРАММЫ</em>;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:integer;
begin
writeln('Enter the founding year of Minsk');
readln(a);
if (a=1067) then writeln('Right')
else writeln('You make a mistake');
readln;
end.
<span>
<em>НАЗВАНИЕ ПРОГРАММЫ </em>- поменяйте на название программы.
Минск, вроде, основан в 1067 году, если не прав, то поправьте программу. Вместо 1067 введите год основания.</span>
Ну начнем со сложного найдем общее количество символов 3*25*80=<span>6000символов всего далее путем не хитрых махинаций определим вес одного символа, а это 5бит, потому как именно два в пятой дадут нам минимальное количество возможных значений для кодировки. теперь перемножаем и получаем 6000*5=30000бит, чтобы получить кбиты нужно поделить на 1024, но это совсем другая история</span>
1) На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К. По каждой дороге можно двигаться только в одном на
veronka1 [6]
Суммируем сходящиеся стрелки и их значения
Ответ 18
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
<em>uses GrathABC;</em>
<em>var b: picture;</em>
<em>begin</em>
<em>b:= Picture.Create('1.png');</em>
<em>.</em><em>.</em><em>.</em>
<em>end</em><em>.</em>
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
<em>procedure OnKeyPress(key:</em><em> </em><em>integer</em><em>);</em>
<em>begin</em>
<em>if key = 2 then b.Draw(10, 10);</em>
<em>end;</em>
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты (спасибо Delphi за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;