Извини, на паскале не могу (( Только Python или C++ ((
На Python (он наверно ближе):
n=int (input ())
for i in range (1, n):
____if i÷2!=0:
________print (i)
Я обозначала "_" пробел
X - 1 сторона
y - 2 сторона
Исходя из условия можно составить систему уравнений.
{x*y=180
{(x-2)(y+3)=180
x=12, y=15
Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
begin
write('k',i,'='); readln(k);
s1:=s1+i; s2:=s2+k;
end;
writeln('Потерялась карточка ',s1-s2);
<span>end.
Пример:
n=5
k1=1
k2=3
k3=4
k4=5
<span>Потерялась карточка 2
</span></span><span><span>
</span></span>
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
Program colors;
Uses crt;
var color: integer;
label l1;
Begin clrscr;
l1: write('Введите номер цвета color = ');
readln(color);
case color of 0: writeln('Черный');
1: writeln('Синий');
2: writeln('Зеленый');
3: writeln('Голубой');
4: writeln('Красный');
5: writeln('Фиолетовый');
6: writeln('Коричневый');
7: writeln('Светло-серый');
8: writeln('Темно-серый');
9: writeln('Ярко-синий');
10: writeln('Ярко-зеленый');
11: writeln('Ярко-голубой');
12: writeln('Розовый');
13: writeln('Малиноый');
14: writeln('Желтый');
15: writeln('Белый');
else
begin
writeln('Непривильный номер цвета');
writeln;
goto l1;
end;
end;
readln;
End.
