В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *
Я недавно была на на такой же ярмарке, и там рассказывалось про всякие учебные заведения в твоем городе, р-не, области, и представители этих учереждений выходили и рассказывали о своих колледжах и институтов и какие именно там есть специализации.
Ну надеюсь понятно объяснила.
<span>program</span><span> kalkulator; </span>
<span>uses</span><span> crt; </span>
<span>var</span><span> a</span><span>,</span><span>b</span><span>,</span><span>c</span><span>:</span><span>real</span><span>; </span>x<span>:</span><span>integer</span>;
<span>Begin</span>
clrscr;
<span>Writeln</span><span>(</span><span>'введите 2 числа'</span><span>)</span>;
<span>Readln</span><span>(</span>a<span>,</span>b<span>)</span>;
<span>Writeln</span><span>(</span><span>'выберете действие'</span><span>)</span>;
<span>Writeln</span><span>(</span><span>'1-"+" 2-"-" 3-"*" 4-"/"'</span><span>)</span>;
<span>Readln</span><span>(</span>x<span>)</span>;
<span>case</span> x <span>of</span>
<span>1</span><span>:</span><span>begin</span> c<span>:=</span>a<span>+</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>2</span><span>:</span><span>begin</span> c<span>:=</span>a<span>-</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>3</span><span>:</span><span>begin</span> c<span>:=</span>a<span>*</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>else</span><span>begin</span> c<span>:=</span>a<span>/</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>;
<span>end</span>;
<span>end</span>;
<span>Readln</span>;
<span>end</span>.
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
// Блок схема в приложении.
const
max = 100;
var
sum:word;
index:byte;
BEGIN
sum:=0;
for index:=1 to max do
if not odd(index) then
sum:=sum+index;
writeln('Сумма четных чисел от 1 до ', max ,' = ', sum);
END.