1 вариант:
<span><span>var
</span></span>
a, b, c, min: integer;
<span><span>begin
</span></span>
min:=0;
<span>
readln(a, b, c);
</span>
<span>if (a<b) and (a<c) then min:=a;</span>
<span>
if (b<a) and (b<c) then min:=b;
</span>
<span>if (c<a) and (c<b) then min:=c;</span>
<span>
writeln(min);</span>
<span>
end.</span>
2 вариант:
<span>Var a:array[</span>1..3<span>] of </span>integer;
i,z:integer;
<span><span>begin
</span></span>
<span>for i:=</span>1 to 3 do
Readln(a[i]);
z:=a[1];
<span>for i:=</span>2 to 3 do
<span><span>
begin</span></span>
<span><span /></span><span>if a[i]<z
then z:=a[i];</span>
<span>
end;</span>
<span>
writeln(z);</span>
<span>
end.</span>
Вопросы составишь вот по этой теме на соблюдать дисциплину и порядок, правила техники безопасности и чистоту;занимать рабочие места согласно указаниям преподавателя и не менять их самовольно;заниматься только тем видом деятельности, которую определил преподаватель;немедленно сообщать преподавателю о любых замеченных неисправностях оборудования или неверной работе программного обеспечения;немедленно сообщать преподавателю о любом случае травматизма в кабинете, особенно от электрического тока.
Вот. На фото все видно.
В 3-м примере мы прибавляем тех кто умеет играть только в шашки и только в шахматы и тех, кто играет в шашки и шахматы одновременно
Int main ...
int a,b,c;
cout <<" 2+2=4? 1-да, 2 - нет " << endl;
cin>>a;
if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>cout <<" 3+2=5? 1-да, 2 - нет " << endl;
<span>cin>>a;
</span>if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>system ("pause");
return 0;